summaryrefslogtreecommitdiff
path: root/testsuite/tests/deriving/should_run/drvrun004.hs
blob: f530803835d7521526d83ff1d020c25a097a4b28 (plain)
1
2
3
4
5
6
7
8
9
10
module Main where

data Hash = Hash{ (#) :: Int }
 deriving (Show, Read)

main =
  do print s
     print (read s :: Hash)
 where
  s = show (Hash 3)