[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)