0e23a2e · servant-quickcheck

git.iko.soy/servant-quickcheck

Code cleanup: remove unused imports and code

commit0e23a2eba7b2f3f14b58f2c11707c4ea1b6d2456 authorErik Aker <eraker@gmail.com> dateSat 15 Jul 2017, 15:11 (9 years ago) parentf052dc1

2 files changed+2−9

unifiedsplit

servant-quickcheck.cabal−1

@@ -39,7 +39,6 @@ library

3939 , clock >= 0.7 && < 0.8

4040 , data-default-class >= 0.0 && < 0.2

4141 , hspec >= 2.4.4 && < 2.5

42− , hspec-core >= 2.4.4 && < 2.5

4342 , http-client >= 0.4.30 && < 0.6

4443 , http-media == 0.6.*

4544 , http-types > 0.8 && < 0.10

test/Servant/QuickCheck/InternalSpec.hs+2−8

@@ -10,8 +10,8 @@ import Prelude.Compat

1010import Servant

1111import Test.Hspec (Spec, context, describe, it, shouldBe,

1212 shouldContain)

13−import Test.Hspec.Core.Spec (Arg, Example, Result (..), FailureReason (..),

14− defaultParams, evaluateExample, safeEvaluateExample)

13+import Test.Hspec.Core.Spec (Arg, Example, Result (..),

14+ defaultParams, safeEvaluateExample)

1515import Test.QuickCheck.Gen (unGen)

1616import Test.QuickCheck.Random (mkQCGen)

1717import Network.HTTP.Client (queryString, path)

@@ -208,12 +208,6 @@ ctx = BasicAuthCheck (const . return $ NoSuchUser) :. EmptyContext

208208------------------------------------------------------------------------------

209209-- Utils

210210------------------------------------------------------------------------------

211−

212−evalExample :: (Example e, Arg e ~ ()) => e -> IO Result

213−evalExample e = evaluateExample e defaultParams ($ ()) progCallback

214− where

215− progCallback _ = return ()

216−

217211safeEvalExample :: (Example e, Arg e ~ ()) => e -> IO (Either SomeException Result)

218212safeEvalExample e = safeEvaluateExample e defaultParams ($ ()) progCallback

219213 where