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

data T = (:=:) {- | (:!=:) -} deriving (Show,Read)

main
 = do  putStrLn ("show (:=:) = " ++ show (:=:))
       putStrLn ("read (show (:=:)) :: T = " ++
                  show (read (show (:=:)) :: T))