base-compat for tests.

And test import cleanup.

servant-quickcheck.cabal

@@ -68,12 +68,13 @@ library
 
 test-suite spec
   type:                exitcode-stdio-1.0
-  ghc-options:         -Wall -O2 -threaded
+  ghc-options:         -Wall -threaded
   default-language:    Haskell2010
   hs-source-dirs:      test
   main-is:             Spec.hs
   other-modules:       Servant.QuickCheck.InternalSpec
   build-depends:       base == 4.*
+                     , base-compat
                      , servant-quickcheck
                      , hspec
                      , http-client
@@ -88,5 +89,6 @@ test-suite spec
                      , FlexibleInstances
                      , FlexibleContexts
                      , DataKinds
+                     , NoImplicitPrelude
   if flag(long-tests)
       cpp-options: -DLONG_TESTS

test/Servant/QuickCheck/InternalSpec.hs

@@ -1,18 +1,18 @@
-{-# LANGUAGE CPP #-}
+{-# LANGUAGE CPP                 #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 module Servant.QuickCheck.InternalSpec (spec) where
 
-import Control.Concurrent.MVar (newMVar, readMVar, swapMVar)
-import Control.Monad.IO.Class (liftIO)
-import Data.Proxy
-import Servant
-import Test.Hspec
-import Test.QuickCheck
-import Servant.API.Internal.Test.ComprehensiveAPI
+import           Control.Concurrent.MVar                    (newMVar, readMVar,
+                                                             swapMVar)
+import           Control.Monad.IO.Class                     (liftIO)
+import           Prelude.Compat
+import           Servant
+import           Servant.API.Internal.Test.ComprehensiveAPI (comprehensiveAPI)
+import           Test.Hspec                                 (Spec, describe, it,
+                                                             shouldBe)
 
-import Servant.QuickCheck
-
-import Servant.QuickCheck.Internal (genRequest, serverDoesntSatisfy)
+import           Servant.QuickCheck
+import           Servant.QuickCheck.Internal                (genRequest, serverDoesntSatisfy)
 
 spec :: Spec
 spec = do
@@ -79,7 +79,7 @@ ctx = BasicAuthCheck (const . return $ NoSuchUser) :. EmptyContext
 ------------------------------------------------------------------------------
 
 args :: Args
-args = stdArgs { maxSuccess = noOfTestCases }
+args = defaultArgs { maxSuccess = noOfTestCases }
 
 noOfTestCases :: Int
 #if LONG_TESTS