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

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

diff --git a/ghc/tests/deriving/should_run/drvrun005.hs b/ghc/tests/deriving/should_run/drvrun005.hs
index 0d21690..a1014c5 100644 (file)
--- a/ghc/tests/deriving/should_run/drvrun005.hs
+++ b/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