@@ -469,10 +469,10 @@ tl_zipWith c s = L.zipWith c s `eqP` (unpackS . TL.zipWith c (packS s))
470-- Bit shifts.
470-- Bit shifts.
471shiftL w = forAll (choose (0,width-1)) $ \k -> Bits.shiftL w k == U.shiftL w k
471shiftL w = forAll (choose (0,width-1)) $ \k -> Bits.shiftL w k == U.shiftL w k
472− where width = round (log (fromIntegral m) / log 2)
472+ where width = round (log (fromIntegral m) / log 2 :: Double)
473 (m,_) = (maxBound, m == w)
473 (m,_) = (maxBound, m == w)
474shiftR w = forAll (choose (0,width-1)) $ \k -> Bits.shiftR w k == U.shiftR w k
474shiftR w = forAll (choose (0,width-1)) $ \k -> Bits.shiftR w k == U.shiftR w k
475− where width = round (log (fromIntegral m) / log 2)
475+ where width = round (log (fromIntegral m) / log 2 :: Double)
476 (m,_) = (maxBound, m == w)
476 (m,_) = (maxBound, m == w)
478shiftL_Int = shiftL :: Int -> Property
478shiftL_Int = shiftL :: Int -> Property