projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[project @ 2000-08-17 16:15:15 by simonmar]
[ghc-hetmet.git]
/
ghc
/
tests
/
deSugar
/
should_compile
/
ds046.hs
diff --git
a/ghc/tests/deSugar/should_compile/ds046.hs
b/ghc/tests/deSugar/should_compile/ds046.hs
index
15d7199
..
191e943
100644
(file)
--- a/
ghc/tests/deSugar/should_compile/ds046.hs
+++ b/
ghc/tests/deSugar/should_compile/ds046.hs
@@
-28,3
+28,9
@@
j (C (a,b)) = a + b
data D a b = D Int !(a,b) !(E Int)
data E a = E a
k (D a (b,c) (E d)) = a + b + c + d
+
+-- test 6: records
+data F a b = F { x :: !Int, y :: !(Float,Float), z :: !(a,b) }
+l F{x = a} = a
+m (F a b c) = a
+n F{z = (a,b)} = a