From 1d4e5b6a7ccc588a1436910c6e1535ba71aba67d Mon Sep 17 00:00:00 2001 From: ross Date: Fri, 21 Oct 2005 16:31:23 +0000 Subject: [PATCH] [project @ 2005-10-21 16:31:23 by ross] oops --- Data/IntMap.hs | 4 ++-- Data/IntSet.hs | 4 ++-- Data/Map.hs | 4 ++-- Data/Sequence.hs | 4 ++-- Data/Set.hs | 4 ++-- 5 files changed, 10 insertions(+), 10 deletions(-) diff --git a/Data/IntMap.hs b/Data/IntMap.hs index 318fe59..e6a9594 100644 --- a/Data/IntMap.hs +++ b/Data/IntMap.hs @@ -1004,8 +1004,8 @@ instance (Read e) => Read (IntMap e) 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 diff --git a/Data/IntSet.hs b/Data/IntSet.hs index c41ed17..49ccd0f 100644 --- a/Data/IntSet.hs +++ b/Data/IntSet.hs @@ -606,8 +606,8 @@ instance Read IntSet 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 diff --git a/Data/Map.hs b/Data/Map.hs index fd432e2..5aeffc5 100644 --- a/Data/Map.hs +++ b/Data/Map.hs @@ -1316,8 +1316,8 @@ instance (Ord k, Read k, Read e) => Read (Map k e) 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 diff --git a/Data/Sequence.hs b/Data/Sequence.hs index 50c2447..0bf80d5 100644 --- a/Data/Sequence.hs +++ b/Data/Sequence.hs @@ -152,8 +152,8 @@ instance Read a => Read (Seq 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 diff --git a/Data/Set.hs b/Data/Set.hs index fd09eb0..fad370c 100644 --- 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 -- 1.7.10.4