diff options
| -rw-r--r-- | testsuite/tests/deSugar/should_run/dsrun011.hs | 6 | ||||
| -rw-r--r-- | testsuite/tests/lib/Numeric/num009.hs | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/testsuite/tests/deSugar/should_run/dsrun011.hs b/testsuite/tests/deSugar/should_run/dsrun011.hs index b7e518c0bf..d1eecf6277 100644 --- a/testsuite/tests/deSugar/should_run/dsrun011.hs +++ b/testsuite/tests/deSugar/should_run/dsrun011.hs @@ -4,7 +4,7 @@ module Main where -a1 :: Num a => a -> a +a1 :: (Num a, Eq a) => a -> a a1 x | x==0 = x a1 x = 1 + k8 (x-1) @@ -16,7 +16,7 @@ a5 x = 1 + a4 x a6 x = 1 + a5 x a7 x = 1 + a6 x a8 x = 1 + a7 x - + b1 x = 1 + a8 x b2 x = 1 + b1 x b3 x = 1 + b2 x @@ -25,7 +25,7 @@ b5 x = 1 + b4 x b6 x = 1 + b5 x b7 x = 1 + b6 x b8 x = 1 + b7 x - + c1 x = 1 + b8 x c2 x = 1 + c1 x c3 x = 1 + c2 x diff --git a/testsuite/tests/lib/Numeric/num009.hs b/testsuite/tests/lib/Numeric/num009.hs index 6910f2f840..58ab586ba8 100644 --- a/testsuite/tests/lib/Numeric/num009.hs +++ b/testsuite/tests/lib/Numeric/num009.hs @@ -17,7 +17,7 @@ main = do let d = 1e20 :: Double test "tanf" tanf tan f putStrLn "Done" -test :: (RealFloat a, Floating a, RealFloat b, Floating b) +test :: (RealFloat a, Floating a, RealFloat b, Floating b, Show b) => String -> (a -> a) -> (b -> b) -> b -> IO () test s f g x = do let y = realToFrac (f (realToFrac x)) z = g x |