diff options
Diffstat (limited to 'testsuite/tests/typecheck/should_fail/tcfail158.hs')
-rw-r--r-- | testsuite/tests/typecheck/should_fail/tcfail158.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/typecheck/should_fail/tcfail158.hs b/testsuite/tests/typecheck/should_fail/tcfail158.hs new file mode 100644 index 0000000000..95af345b36 --- /dev/null +++ b/testsuite/tests/typecheck/should_fail/tcfail158.hs @@ -0,0 +1,15 @@ +{-# LANGUAGE ExplicitForAll #-} + +-- This one actually crashed in 6.4.1 +-- There's a kind error in the signature for bar, +-- and we were recovering, and then crashing when we found +-- a scoped type variable not in scope + + data Val v sm = Val + foo :: forall v sm. Val v sm + foo = undefined + where foo1 :: Val v sm + foo1 = bar + -- Correct type signature: bar :: forall v sm. Val v sm + bar :: forall v. Val v + bar = undefined foo |