Commit f06d2707 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Tests for Trac #1154

parent 9570d860
......@@ -237,6 +237,7 @@ test('tc221', normal, compile, [''])
test('tc222', normal, compile, [''])
test('tc223', normal, compile, [''])
test('tc224', normal, compile, [''])
test('tc225', normal, compile, [''])
test('faxen', normal, compile, [''])
......
{-# OPTIONS -fglasgow-exts #-}
-- Newtype in GADT syntax
module ShouldCompile where
newtype Bug a where Bug :: a -> Bug a
......@@ -161,3 +161,4 @@ test('tcfail172', normal, compile_fail, [''])
test('tcfail173', normal, compile_fail, [''])
test('tcfail174', normal, compile_fail, [''])
test('tcfail175', normal, compile_fail, [''])
test('tcfail176', normal, compile_fail, [''])
{-# OPTIONS -fglasgow-exts #-}
-- Newtype in GADT syntax
module ShouldFail where
newtype Bug a where Bug :: a -> Maybe a
tcfail176.hs:7:20:
Data constructor `Bug' returns type `Maybe'
instead of its parent type
In the definition of data constructor `Bug'
In the newtype declaration for `Bug'
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment