projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b8fc8d1
)
[project @ 1997-09-03 23:36:28 by sof]
author
sof
<unknown>
Wed, 3 Sep 1997 23:36:28 +0000
(23:36 +0000)
committer
sof
<unknown>
Wed, 3 Sep 1997 23:36:28 +0000
(23:36 +0000)
new desugar regr. test
ghc/tests/deSugar/should_compile/ds041.hs
[new file with mode: 0644]
patch
|
blob
diff --git a/ghc/tests/deSugar/should_compile/ds041.hs
b/ghc/tests/deSugar/should_compile/ds041.hs
new file mode 100644
(file)
index 0000000..
072ed89
--- /dev/null
+++ b/
ghc/tests/deSugar/should_compile/ds041.hs
@@ -0,0
+1,16
@@
+{- In 2.05 this one crashed with
+
+ Fail: "basicTypes/Id.lhs", line 990: incomplete pattern(s)
+ to match in function "dataConFieldLabels"
+
+ Reason: dsExpr (RecordCon ...) didn't extract
+ the constructor properly.
+-}
+
+module Bug where
+
+data Eq a => Foo a = Foo { x :: a }
+
+foo :: Eq a => Foo a
+foo = Foo{}
+