mirror of
https://github.com/ilyakooo0/servant-quickcheck.git
synced 2024-08-16 22:00:32 +03:00
Code cleanup: remove unused imports and code
This commit is contained in:
parent
f052dc149b
commit
0e23a2eba7
@ -39,7 +39,6 @@ library
|
||||
, clock >= 0.7 && < 0.8
|
||||
, data-default-class >= 0.0 && < 0.2
|
||||
, hspec >= 2.4.4 && < 2.5
|
||||
, hspec-core >= 2.4.4 && < 2.5
|
||||
, http-client >= 0.4.30 && < 0.6
|
||||
, http-media == 0.6.*
|
||||
, http-types > 0.8 && < 0.10
|
||||
|
@ -10,8 +10,8 @@ import Prelude.Compat
|
||||
import Servant
|
||||
import Test.Hspec (Spec, context, describe, it, shouldBe,
|
||||
shouldContain)
|
||||
import Test.Hspec.Core.Spec (Arg, Example, Result (..), FailureReason (..),
|
||||
defaultParams, evaluateExample, safeEvaluateExample)
|
||||
import Test.Hspec.Core.Spec (Arg, Example, Result (..),
|
||||
defaultParams, safeEvaluateExample)
|
||||
import Test.QuickCheck.Gen (unGen)
|
||||
import Test.QuickCheck.Random (mkQCGen)
|
||||
import Network.HTTP.Client (queryString, path)
|
||||
@ -208,12 +208,6 @@ ctx = BasicAuthCheck (const . return $ NoSuchUser) :. EmptyContext
|
||||
------------------------------------------------------------------------------
|
||||
-- Utils
|
||||
------------------------------------------------------------------------------
|
||||
|
||||
evalExample :: (Example e, Arg e ~ ()) => e -> IO Result
|
||||
evalExample e = evaluateExample e defaultParams ($ ()) progCallback
|
||||
where
|
||||
progCallback _ = return ()
|
||||
|
||||
safeEvalExample :: (Example e, Arg e ~ ()) => e -> IO (Either SomeException Result)
|
||||
safeEvalExample e = safeEvaluateExample e defaultParams ($ ()) progCallback
|
||||
where
|
||||
|
Loading…
Reference in New Issue
Block a user