diff options
Diffstat (limited to 'testsuite/tests/deSugar/should_compile/ds054.hs')
-rw-r--r-- | testsuite/tests/deSugar/should_compile/ds054.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/deSugar/should_compile/ds054.hs b/testsuite/tests/deSugar/should_compile/ds054.hs new file mode 100644 index 0000000000..7b05409adf --- /dev/null +++ b/testsuite/tests/deSugar/should_compile/ds054.hs @@ -0,0 +1,8 @@ +-- fails core-lint in 6.2 +module ShouldCompile where + +newtype Foo = Foo [Foo] +newtype Bar = Bar Foo + +unBar :: Bar -> Foo +unBar (Bar x) = x |