Fix to compile package with GHC 7.6.1
Issue reported by Eugene Kirpichov <ekirpichov@gmail.com>.
commit2b616b3df7388ef165017a393dacf325fe614e9b
authorLennart Kolmodin <kolmodin@gmail.com>
dateSun 28 Oct 2012, 15:00 (14 years ago)
parent596a7b5
Data/Binary/Bits/Get.hs+1−1
@@ -182,7 +182,7 @@ incS o (S bs n) =
182182 in S (unsafeDrop d bs) n'
183183
184184-- | make_mask 3 = 00000111
185−make_mask :: Bits a => Int -> a
185+make_mask :: (Bits a, Num a) => Int -> a
186186make_mask n = (1 `shiftL` fromIntegral n) - 1
187187{-# SPECIALIZE make_mask :: Int -> Int #-}
188188{-# SPECIALIZE make_mask :: Int -> Word #-}