[project @ 1999-09-16 18:37:50 by sof]

Extended to show why changing the defn of ReadS (and read) is a good idea

ghc/tests/deriving/should_run/drvrun005.hs

@@ -19,4 +19,6 @@ data T = T1 |  T :++ T  deriving (Eq,Show, Read)
 t :: T
 t = read "T1"
 
-main = print t
+main = do
+  print ((fst (head (reads "T1"))) :: T)
+  print t