testsuite/tests/ado/ado009.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE ApplicativeDo #-}
{-# OPTIONS_GHC -ddump-rn -dsuppress-uniques #-}

module Test where

-- Make sure the $ stripped from the last stmt is printed
q :: IO ()
q = do
  a <- return ()
  return $ (\_ -> ()) a