From 0e23a2eba7b2f3f14b58f2c11707c4ea1b6d2456 Mon Sep 17 00:00:00 2001 From: Erik Aker Date: Sat, 15 Jul 2017 15:11:18 -0700 Subject: [PATCH] Code cleanup: remove unused imports and code --- servant-quickcheck.cabal | 1 - test/Servant/QuickCheck/InternalSpec.hs | 10 ++-------- 2 files changed, 2 insertions(+), 9 deletions(-) diff --git a/servant-quickcheck.cabal b/servant-quickcheck.cabal index 922dc23..82d0496 100644 --- a/servant-quickcheck.cabal +++ b/servant-quickcheck.cabal @@ -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 diff --git a/test/Servant/QuickCheck/InternalSpec.hs b/test/Servant/QuickCheck/InternalSpec.hs index 83a19fb..0906bfc 100644 --- a/test/Servant/QuickCheck/InternalSpec.hs +++ b/test/Servant/QuickCheck/InternalSpec.hs @@ -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