blob: afc3a21007bace554c2e0f2a5160da0f4a68192e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
-- !!! Testing layout rule
module ShouldCompile where
l1 :: IO ()
l1 = do
return a
where
a = ()
l2 :: IO ()
l2 = do
return a
where
a = ()
l3 :: IO ()
l3 = do
return a
where
a = ()
|