[project @ 2005-10-21 16:31:23 by ross]

[ghc-base.git] / Data / Set.hs

diff --git a/Data/Set.hs b/Data/Set.hs
index fd09eb0..fad370c 100644 (file)
--- a/Data/Set.hs
+++ b/Data/Set.hs
@@ -536,8 +536,8 @@ instance (Read a, Ord a) => Read (Set a) where
     return (fromList xs)
 #else
   readsPrec p = readParen (p > 10) $ \ r -> do
-    ("fromList",s) <- lex
-    (xs,t) <- reads
+    ("fromList",s) <- lex r
+    (xs,t) <- reads s
     return (fromList xs,t)
 #endif