testsuite/tests/ghci/scripts/T10453.script


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

:set +m
:set -XLambdaCase

foo1 x = case x of
           1 -> "one"
           _ -> "not one"

foo1 0
foo1 1

foo2 = \case
          1 -> "one"
          _ -> "not one"

foo2 0
foo2 1