testdata/language-features/basic-values/where05.lc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

value1 = case 1 of
  1 -> x where x = ()
  _ -> ()

value2 = case 1 of
  1 -> x
   where x = ()
  _ -> ()

value3 = case 1 of
  1 -> x
   where
   x = ()
  _ -> ()

value4 = case 1 of
  1 -> x
  _ -> ()

 where
 x = ()