[project @ 2001-05-04 16:36:38 by simonmar]
[ghc-hetmet.git] / ghc / tests / deriving / should_run / drvrun004.hs
1 module Main where
2
3 data Hash = Hash{ (#) :: Int }
4  deriving (Show, Read)
5
6 main =
7   do print s
8      print (read s :: Hash)
9  where
10   s = show (Hash 3)