projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[project @ 1997-09-04 12:54:24 by simonm]
[ghc-hetmet.git]
/
ghc
/
tests
/
deriving
/
should_run
/
drvrun001.hs
diff --git
a/ghc/tests/deriving/should_run/drvrun001.hs
b/ghc/tests/deriving/should_run/drvrun001.hs
index
7b68599
..
b6bd259
100644
(file)
--- a/
ghc/tests/deriving/should_run/drvrun001.hs
+++ b/
ghc/tests/deriving/should_run/drvrun001.hs
@@
-4,5
+4,10
@@
newtype Age = MkAge Int deriving (Eq, Show)
instance Num Age where
(+) (MkAge a) (MkAge b) = MkAge (a+b)
+ (*) = undefined
+ negate = undefined
+ abs = undefined
+ signum = undefined
+ fromInteger = undefined
main = print (MkAge 3 + MkAge 5)