Tests.QuickCheckUtils: m clean-up

Author: Anton-Latukha

tests/Tests/QuickCheckUtils.hs

@@ -80,8 +80,8 @@ newtype Sqrt a = Sqrt { unSqrt :: a }
 
 instance Arbitrary a => Arbitrary (Sqrt a) where
     arbitrary = fmap Sqrt $ sized $ \n -> resize (smallish n) arbitrary
-        where
-            smallish = round . (sqrt :: Double -> Double) . fromIntegral . abs
+     where
+      smallish = round . (sqrt :: Double -> Double) . fromIntegral . abs
     shrink = map Sqrt . shrink . unSqrt
 
 instance Arbitrary T.Text where
@@ -96,9 +96,11 @@ newtype BigInt = Big Integer
                deriving (Eq, Show)
 
 instance Arbitrary BigInt where
-    arbitrary = choose (1::Int,200) >>= \e -> Big <$> choose (10^(e-1),10^e)
+    arbitrary = do
+      e <- choose (1::Int,200)
+      Big <$> choose (10^(e-1),10^e)
     shrink (Big a) = [Big (a `div` 2^(l-e)) | e <- shrink l]
-      where l = truncate (log (fromIntegral a) / log 2 :: Double) :: Integer
+      where l = truncate (logBase 2 (fromIntegral a) :: Double) :: Integer
 
 newtype NotEmpty a = NotEmpty { notEmpty :: a }
     deriving (Eq, Ord, Show)