@@ -469,10 +469,10 @@ tl_zipWith c s = L.zipWith c s `eqP` (unpackS . TL.zipWith c (packS s))
469469
470470-- Bit shifts.
471471shiftL 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)
473473 (m,_) = (maxBound, m == w)
474474shiftR 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)
476476 (m,_) = (maxBound, m == w)
477477
478478shiftL_Int = shiftL :: Int -> Property