path: root/testsuite/tests/parser/should_fail/NoBlockArgumentsFail.hs

module NoBlockArgumentsFail where

import Control.Monad

foo :: IO ()
foo = when True do
  return ()