@@ -1,18 +1,18 @@
1−{-# LANGUAGE CPP #-}
1+{-# LANGUAGE CPP #-}
22{-# LANGUAGE ScopedTypeVariables #-}
33module Servant.QuickCheck.InternalSpec (spec) where
44
5−import Control.Concurrent.MVar (newMVar, readMVar, swapMVar)
6−import Control.Monad.IO.Class (liftIO)
7−import Data.Proxy
8−import Servant
9−import Test.Hspec
10−import Test.QuickCheck
11−import Servant.API.Internal.Test.ComprehensiveAPI
5+import Control.Concurrent.MVar (newMVar, readMVar,
6+ swapMVar)
7+import Control.Monad.IO.Class (liftIO)
8+import Prelude.Compat
9+import Servant
10+import Servant.API.Internal.Test.ComprehensiveAPI (comprehensiveAPI)
11+import Test.Hspec (Spec, describe, it,
12+ shouldBe)
1213
13−import Servant.QuickCheck
14−
15−import Servant.QuickCheck.Internal (genRequest, serverDoesntSatisfy)
14+import Servant.QuickCheck
15+import Servant.QuickCheck.Internal (genRequest, serverDoesntSatisfy)
1616
1717spec :: Spec
1818spec = do
@@ -79,7 +79,7 @@ ctx = BasicAuthCheck (const . return $ NoSuchUser) :. EmptyContext
7979------------------------------------------------------------------------------
8080
8181args :: Args
82−args = stdArgs { maxSuccess = noOfTestCases }
82+args = defaultArgs { maxSuccess = noOfTestCases }
8383
8484noOfTestCases :: Int
8585#if LONG_TESTS