ghc-exactprint-1.14.0.0: tests/examples/pre-ghc910/ado003.hs
{-# LANGUAGE ApplicativeDo #-}
module ShouldFail where
g :: IO ()
g = do
x <- getChar
'a' <- return (3::Int) -- type error
return ()
{-# LANGUAGE ApplicativeDo #-}
module ShouldFail where
g :: IO ()
g = do
x <- getChar
'a' <- return (3::Int) -- type error
return ()