Fix import warnings

Author: garyb

src/Test/QuickCheck.purs

@@ -22,8 +22,7 @@ import Prelude
 import Control.Monad.Eff (Eff())
 import Control.Monad.Eff.Console (CONSOLE(), log)
 import Control.Monad.Eff.Exception (EXCEPTION(), throwException, error)
-import Control.Monad.Eff.Random (RANDOM(), random)
-import Data.Int (fromNumber, toNumber)
+import Control.Monad.Eff.Random (RANDOM())
 import Data.List (List(..), replicateM)
 import Test.QuickCheck.Arbitrary
 import Test.QuickCheck.Gen

src/Test/QuickCheck/Arbitrary.purs

@@ -6,9 +6,9 @@ import Data.Char (toCharCode, fromCharCode)
 import Data.Either (Either(..))
 import Data.Foldable (foldl)
 import Data.Identity (Identity(..))
-import Data.Int (fromNumber, toNumber)
+import Data.Int (toNumber)
 import Data.Lazy (Lazy(), defer, force)
-import Data.List (List(..))
+import Data.List (List())
 import Data.Maybe (Maybe(..))
 import Data.String (charCodeAt, fromCharArray, split)
 import Data.Tuple (Tuple(..))

src/Test/QuickCheck/Data/AlphaNumString.purs

@@ -2,10 +2,7 @@ module Test.QuickCheck.Data.AlphaNumString where
 
 import Prelude
 
-import Data.Int (fromNumber, toNumber)
-import Data.String (fromCharArray, toCharArray, length)
-import Data.String.Unsafe (charAt)
-import Math (round)
+import Data.String (fromCharArray, toCharArray)
 import Test.QuickCheck.Gen
 import Test.QuickCheck.Arbitrary
 
@@ -21,7 +18,7 @@ instance arbAlphaNumString :: Arbitrary AlphaNumString where
     where
     rest :: Array Char
     rest = toCharArray "bcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
-    
+
     anyChar :: Gen Char
     anyChar = oneOf (pure 'a') (map pure rest)
 

src/Test/QuickCheck/Gen.purs

@@ -34,13 +34,12 @@ import Control.Monad.Eff.Random (RANDOM())
 import Control.Monad.State (State(), runState, evalState)
 import Control.Monad.State.Class (state, modify)
 import Control.Monad.Rec.Class (MonadRec, tailRecM)
-import Data.Array ((!!), length, range)
+import Data.Array ((!!), length)
 import Data.Tuple (Tuple(..))
 import Data.Foldable (fold)
-import Data.Int (fromNumber, toNumber)
+import Data.Int (toNumber)
 import Data.Maybe (fromMaybe)
 import Data.Monoid.Additive (Additive(..), runAdditive)
-import Data.Traversable (sequence)
 import Data.Tuple (Tuple(..), fst, snd)
 import Data.Either (Either(..))
 import Data.List (List(..), fromList)

src/Test/QuickCheck/LCG.purs

@@ -15,7 +15,6 @@ import Math ((%))
 import Control.Monad.Eff (Eff())
 import Control.Monad.Eff.Random (RANDOM(), randomInt)
 import Data.Int (fromNumber, toNumber)
-import Data.Int.Bits (shl)
 import qualified Data.Maybe.Unsafe as U
 
 -- | The *multiplier*: a magic constant for the linear congruential generator