[project @ 1999-03-15 13:30:59 by sewardj]
authorsewardj <unknown>
Mon, 15 Mar 1999 13:30:59 +0000 (13:30 +0000)
committersewardj <unknown>
Mon, 15 Mar 1999 13:30:59 +0000 (13:30 +0000)
Fix defn of  instance Read Number  to only return one parse.

real/hidden/Numbers.hs

index 55188b3..52bd50f 100644 (file)
@@ -22,8 +22,8 @@ instance Floating Number where
        sqrt (Tolerant a)               = Tolerant (sqrt a)
 {- Allow both integral and floating denotations for numbers -}
 instance Read Number where
-       readsPrec p s = [(Tolerant n,t) | (n,t) <- readsPrec p s] ++
-                       [(Tolerant (fromInteger n),t) | (n,t) <- readsPrec p s]
+       readsPrec p s = [(Tolerant n,t) | (n,t) <- readsPrec p s] --++
+                       --[(Tolerant (fromInteger n),t) | (n,t) <- readsPrec p s]
 instance Show Number where
        showsPrec p (Tolerant x) = showsPrec p x
-eps    = 0.0001
+eps    = 0.0001 :: Float