summaryrefslogtreecommitdiff
path: root/testsuite/tests/typecheck/should_fail/IPFail.hs
blob: 1c897eb8cbe66cfff77368d39a3c9b1958253d0f (plain)
1
2
3
4
5
6
{-# LANGUAGE ImplicitParams #-}

module IPFail where

f0 :: (?x :: Int) => () -> Bool
f0 () = let ?x = 5 in ?x