[project @ 1999-12-29 14:46:29 by simonpj]
[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