# HG changeset patch
# User Bryan O'Sullivan
# Date 1324495707 18000
# Node ID 178ab25498ba0638b346fa16dc82ecf97bf05f8d
# Parent 32670175134569887796d940de2da5508af5e9d1
Make tests work with GHC 7.4
diff --git a/tests/QC.hs b/tests/QC.hs
--- a/tests/QC.hs
+++ b/tests/QC.hs
@@ -9,13 +9,13 @@
import qualified Data.ByteString.Char8 as B
-- Integral values should be rendered exactly as Haskell does.
-t_integral :: Integral a => a -> a -> Bool
+t_integral :: (Integral a, Show a) => a -> a -> Bool
t_integral _ i = toByteString (integral i) == B.pack (show i)
-- This package doesn't render floating point numbers exactly as
-- Haskell does, but the numbers it renders should read back exactly.
-- So that's the property we check.
-t_real :: (RealFloat a, Read a) => (a -> Builder) -> a -> a -> Bool
+t_real :: (RealFloat a, Show a, Read a) => (a -> Builder) -> a -> a -> Bool
t_real f i j =
case read (B.unpack . toByteString . f $ ij) of
r | isNaN r -> isNaN ij