Bryan O'Sullivan avatar Bryan O'Sullivan committed 178ab25

Make tests work with GHC 7.4

Comments (0)

Files changed (1)

 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
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.