ghc-exactprint-0.5.3.1: tests/examples/ghc80/ado003.hs

{-# LANGUAGE ApplicativeDo #-}
module ShouldFail where

g :: IO ()
g = do
  x <- getChar
  'a' <- return (3::Int) -- type error
  return ()