testsuite/tests/ado/ado006.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE ApplicativeDo #-}
module Test where

-- This exposed a bug in zonking ApplicativeLastStmt
test :: IO Int
test
  = do
      x <- return ()
      h <- return (\_ -> 3)
      return (h ())