[commit: packages/binary] master: Remove Num constraint. (4d9f7b5)

git at git.haskell.org git at git.haskell.org
Tue Apr 19 20:31:04 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