/usr/web/sources/contrib/fernan/nhc98/tests/conformance98/fields/operator/Main.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/fields/operator/Main.hs


module Main where

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

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

(Return to Plan 9 Home Page)