mirror of
https://github.com/ilyakooo0/servant-quickcheck.git
synced 2024-09-11 18:37:09 +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
|
, clock >= 0.7 && < 0.8
|
||||||
, data-default-class >= 0.0 && < 0.2
|
, data-default-class >= 0.0 && < 0.2
|
||||||
, hspec >= 2.4.4 && < 2.5
|
, hspec >= 2.4.4 && < 2.5
|
||||||
, hspec-core >= 2.4.4 && < 2.5
|
|
||||||
, http-client >= 0.4.30 && < 0.6
|
, http-client >= 0.4.30 && < 0.6
|
||||||
, http-media == 0.6.*
|
, http-media == 0.6.*
|
||||||
, http-types > 0.8 && < 0.10
|
, http-types > 0.8 && < 0.10
|
||||||
|
@ -10,8 +10,8 @@ import Prelude.Compat
|
|||||||
import Servant
|
import Servant
|
||||||
import Test.Hspec (Spec, context, describe, it, shouldBe,
|
import Test.Hspec (Spec, context, describe, it, shouldBe,
|
||||||
shouldContain)
|
shouldContain)
|
||||||
import Test.Hspec.Core.Spec (Arg, Example, Result (..), FailureReason (..),
|
import Test.Hspec.Core.Spec (Arg, Example, Result (..),
|
||||||
defaultParams, evaluateExample, safeEvaluateExample)
|
defaultParams, safeEvaluateExample)
|
||||||
import Test.QuickCheck.Gen (unGen)
|
import Test.QuickCheck.Gen (unGen)
|
||||||
import Test.QuickCheck.Random (mkQCGen)
|
import Test.QuickCheck.Random (mkQCGen)
|
||||||
import Network.HTTP.Client (queryString, path)
|
import Network.HTTP.Client (queryString, path)
|
||||||
@ -208,12 +208,6 @@ ctx = BasicAuthCheck (const . return $ NoSuchUser) :. EmptyContext
|
|||||||
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
||||||
-- Utils
|
-- 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 :: (Example e, Arg e ~ ()) => e -> IO (Either SomeException Result)
|
||||||
safeEvalExample e = safeEvaluateExample e defaultParams ($ ()) progCallback
|
safeEvalExample e = safeEvaluateExample e defaultParams ($ ()) progCallback
|
||||||
where
|
where
|
||||||
|
Loading…
Reference in New Issue
Block a user