[project @ 1997-12-16 17:15:04 by simonm]

[ghc-hetmet.git] / ghc / tests / reader / should_fail / read001.stderr

diff --git a/ghc/tests/reader/should_fail/read001.stderr b/ghc/tests/reader/should_fail/read001.stderr
index 3691e5d..996657b 100644 (file)
--- a/ghc/tests/reader/should_fail/read001.stderr
+++ b/ghc/tests/reader/should_fail/read001.stderr
@@ -36,8 +36,7 @@ mat a b c d
        {- rec -}
        foof a b = a == b
 expr a b c d
-     = ((((((((a + (: a b)) + (a : b))
-            + (((1 - 'c') - "abc") - 1.2929999999999999))
+     = ((((((((a + (: a b)) + (a : b)) + (((1 - 'c') - "abc") - 1.293))
            + ((\ x y z -> x) 42))
           + ((9 *)))
          + ((* 8)))
@@ -56,7 +55,7 @@ expr a b c d
          in
            (((((((y + [1, 2, 3, 4]) + (4, 3, 2, 1))
                 + (4 :: _forall_ [] (Num a) => a))
-               + (if 42 == 42.000000000000000 then 1 else 4))
+               + (if 42 == 42.0 then 1 else 4))
               + ([1 .. ]))
              + ([2, 4 .. ]))
             + ([3 .. 5]))
@@ -64,7 +63,7 @@ expr a b c d
 f _
   x
   1
-  1.9299999999999999
+  1.93
   'c'
   "dog"
   ~y