testsuite/tests/rename/should_fail/RnEmptyCaseFail.hs


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