testsuite/tests/ghc-regress/layout/layout003.hs


1
2
3
4
5
6
7
8
9
10
11
12


module M where

-- The array package used to have things in this sort of pattern, where
-- the "parse error" rule is needed to close the do block's layout

f :: [IO ()]
f = [do
   undefined
   undefined
   | _ <- undefined]