path: root/testsuite/tests/parser/should_compile/NoBlockArguments.hs

module NoBlockArguments where

-- Make sure things parse normally
f  :: a -> a
f = id

foo :: [Int]
foo = f [x | x <- [1 .. 10]]