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)