path: root/testsuite/tests/ghc-regress/typecheck/should_fail/T2414.hs

-- Test for Trac #2414
-- Should provoke an occurs-check error

module ShouldFail where

unfoldr :: (b -> Maybe (Bool, b)) -> Bool
unfoldr = unfoldr

f = unfoldr Just