blob: 4ba8082d6caebd09286f112c0960556355854efb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{-# LANGUAGE NoEmptyCase #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE Arrows #-}
module RnEmptyCaseFail where
f = case () of
g = \case
h = \cases
j = proc x -> do \case
k = proc x -> do case () of
|