[commit: packages/binary] master: Remove Num constraint. (4d9f7b5)
git at git.haskell.org
git at git.haskell.org
Tue Apr 19 20:30:50 UTC 2016
Repository : ssh://git@git.haskell.org/binary
On branch : master
Link : http://git.haskell.org/packages/binary.git/commitdiff/4d9f7b56e7d099ec1ab54e322e1c9f64dfedfeb4
>---------------------------------------------------------------
commit 4d9f7b56e7d099ec1ab54e322e1c9f64dfedfeb4
Author: Lennart Kolmodin <kolmodin at gmail.com>
Date: Tue Apr 19 18:12:09 2016 +0200
Remove Num constraint.
It wasn't required.
>---------------------------------------------------------------
4d9f7b56e7d099ec1ab54e322e1c9f64dfedfeb4
benchmarks/Get.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/benchmarks/Get.hs b/benchmarks/Get.hs
index 191f585..85bb55b 100644
--- a/benchmarks/Get.hs
+++ b/benchmarks/Get.hs
@@ -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
More information about the ghc-commits
mailing list