testsuite/tests/ghc-regress/deriving/should_run/T4136.hs


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))