projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
4671b8b
)
[project @ 1999-09-16 17:55:57 by sof]
author
sof
<unknown>
Thu, 16 Sep 1999 17:55:57 +0000
(17:55 +0000)
committer
sof
<unknown>
Thu, 16 Sep 1999 17:55:57 +0000
(17:55 +0000)
newtypes with a labelled field caused DS trouble sometime back
ghc/tests/deSugar/should_compile/ds048.hs
[new file with mode: 0644]
patch
|
blob
diff --git a/ghc/tests/deSugar/should_compile/ds048.hs
b/ghc/tests/deSugar/should_compile/ds048.hs
new file mode 100644
(file)
index 0000000..
2003430
--- /dev/null
+++ b/
ghc/tests/deSugar/should_compile/ds048.hs
@@ -0,0
+1,7
@@
+-- !!! newtypes with a labelled field.
+module ShouldSucceed where
+
+newtype Foo = Foo { x :: Int } deriving (Eq)
+
+f :: Foo -> Foo -> Int
+f a b = x a + x b