From cc35df0107b716aaf41198b546ebb45af7b6ed93 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 16 Sep 1999 18:37:50 +0000
Subject: [PATCH] [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 |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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