path: root/testsuite/tests/typecheck/should_fail/T10971d.hs

import T10971c

main = do
  print $ f (Just 1)
  print $ g (+1) (Just 5)
  print $ h (const 5) Nothing