[project @ 1999-01-23 18:05:12 by sof]
[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