[project @ 2001-08-22 11:45:06 by sewardj]
[ghc-hetmet.git] / ghc / tests / reader / should_fail / read007.hs
1 -- !!! Expressions as patterns inside do stmt blocks
2 module ShouldFail where
3
4 f :: Int -> IO Int
5 f x = do
6   (2+2) <- 2
7   return x
8