2b616b3 · binary-bits · git.iko.soy

git.iko.soy/binary-bits

on master help sign in

Fix to compile package with GHC 7.6.1

2b616b3Lennart Kolmodin14 years ago

Data/Binary/Bits/Get.hs+1−1

compare with master

@@ -182,7 +182,7 @@ incS o (S bs n) =

182 in S (unsafeDrop d bs) n'

182 in S (unsafeDrop d bs) n'

183

183

184-- | make_mask 3 = 00000111

184-- | make_mask 3 = 00000111

185−make_mask :: Bits a => Int -> a

185+make_mask :: (Bits a, Num a) => Int -> a

186make_mask n = (1 `shiftL` fromIntegral n) - 1

186make_mask n = (1 `shiftL` fromIntegral n) - 1

187{-# SPECIALIZE make_mask :: Int -> Int #-}

187{-# SPECIALIZE make_mask :: Int -> Int #-}

188{-# SPECIALIZE make_mask :: Int -> Word #-}

188{-# SPECIALIZE make_mask :: Int -> Word #-}