From: sof <unknown>
Date: Thu, 16 Sep 1999 18:37:50 +0000 (+0000)
Subject: [project @ 1999-09-16 18:37:50 by sof]
X-Git-Tag: Approximately_9120_patches~5788
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cc35df0107b716aaf41198b546ebb45af7b6ed93;p=ghc-hetmet.git

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