[project @ 2001-08-22 12:24:41 by simonmar]

[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
deleted file mode 100644 (file)
index b6bd259..0000000
--- a/ghc/tests/deriving/should_run/drvrun001.hs
+++ /dev/null
@@ -1,13 +0,0 @@
--- Test newtype derived instances
-
-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)