Remove Num constraint.
authorLennart Kolmodin <kolmodin@gmail.com>
Tue, 19 Apr 2016 16:12:09 +0000 (18:12 +0200)
committerLennart Kolmodin <kolmodin@gmail.com>
Tue, 19 Apr 2016 16:12:09 +0000 (18:12 +0200)
It wasn't required.

benchmarks/Get.hs

index 191f585..85bb55b 100644 (file)
@@ -370,12 +370,12 @@ bigInteger = roll_foldl' manyBytes
 encodedBigInteger :: L.ByteString
 encodedBigInteger = encode bigInteger
 
-roll_foldr :: (Integral a, Num a, Bits a) => [Word8] -> a
+roll_foldr :: (Integral a, Bits a) => [Word8] -> a
 roll_foldr   = foldr unstep 0
   where
     unstep b a = a `shiftL` 8 .|. fromIntegral b
 
-roll_foldl' :: (Integral a, Num a, Bits a) => [Word8] -> a
+roll_foldl' :: (Integral a, Bits a) => [Word8] -> a
 roll_foldl'   = foldl' unstep 0 . reverse
   where
     unstep a b = a `shiftL` 8 .|. fromIntegral b