testsuite/tests/deriving/should_run/drvrun001.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

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