summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/layout/layout003.hs
blob: d9a99afdcbec539c4502314aa395c4b45cb8ca3f (plain)
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]