haskell/servant-quickcheck
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Code cleanup: remove unused imports and code

Browse Source
This commit is contained in:
Erik Aker 2017-07-15 15:11:18 -07:00
parent f052dc149b
commit 0e23a2eba7
2 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
servant-quickcheck.cabal
View File

@ -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
test/Servant/QuickCheck/InternalSpec.hs
View File

@ -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