Fix some more written-but-not-cleaned files
[ghc.git] / testsuite / tests / ghci / prog003 / D.hs
1 module D where
2
3 -- data types and an instance
4 data D a = A Int | B Float deriving Eq
5 newtype N a = N Double
6 type T a = (Int,Double)
7
8 -- a class
9 class C a where c :: a -> Int
10
11 -- a function
12 d :: Float -> Float
13 d x = x / 3