Add Num constraint for base-4.6 compatibility

Starting with `base-4.6` the `Bits` class does not have a `Num` superclass anymore.
cvb · Sep 12, 2012 · 8033618 · 8033618
1 parent 9b27414
commit 8033618
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Snap/Internal/Parsing.hs b/src/Snap/Internal/Parsing.hs
@@ -465,7 +465,7 @@ strictize :: L.ByteString -> ByteString
 strictize = S.concat . L.toChunks
 
 ------------------------------------------------------------------------------
-unsafeFromHex :: (Enum a, Bits a) => ByteString -> a
+unsafeFromHex :: (Enum a, Num a, Bits a) => ByteString -> a
 unsafeFromHex = S.foldl' f 0
   where
 #if MIN_VERSION_base(4,5,0)
@@ -484,7 +484,7 @@ unsafeFromHex = S.foldl' f 0
 
 
 ------------------------------------------------------------------------------
-unsafeFromInt :: (Enum a, Bits a) => ByteString -> a
+unsafeFromInt :: (Enum a, Num a, Bits a) => ByteString -> a
 unsafeFromInt = S.foldl' f 0
   where
     f !cnt !i = cnt * 10 + toEnum (digitToInt i)