Remove knot-tying bug in TcHsSyn.zonkTyVarOcc
[ghc.git] / testsuite / tests / ado / ado006.hs
1 {-# LANGUAGE ApplicativeDo #-}
2 module Test where
3
4 -- This exposed a bug in zonking ApplicativeLastStmt
5 test :: IO Int
6 test
7 = do
8 x <- return ()
9 h <- return (\_ -> 3)
10 return (h ())