6995e39 · servant · git.iko.soy

servant-client-core/servant-client-core.cabal+8

compare with master

unifiedsplit

@@ -56,6 +56,14 @@ test-suite spec

56 default-language: Haskell2010

57 hs-source-dirs: test

58 main-is: Spec.hs

59+ build-depends:

60+ base

61+ , base-compat

62+ , deepseq

63+ , servant-client-core

64+ , hspec == 2.*

65+ , QuickCheck >= 2.7 && < 2.10

59 other-modules:

66 other-modules:

67+ Servant.Client.Core.Internal.BaseUrlSpec

60 build-depends:

68 build-depends:

61 base == 4.*

69 base == 4.*

servant-client/test/Servant/Common/BaseUrlSpec.hs → servant-client-core/test/Servant/Client/Core/Internal/BaseUrlSpec.hsrenamed+3−5

@@ -1,5 +1,6 @@

1{-# OPTIONS_GHC -fno-warn-orphans #-}

2−module Servant.Common.BaseUrlSpec where

2+module Servant.Client.Core.Internal.BaseUrlSpec (spec) where

3+

3

4

4import Control.DeepSeq

5import Control.DeepSeq

5import Prelude ()

6import Prelude ()

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

7import Test.Hspec

8import Test.Hspec

8import Test.QuickCheck

9import Test.QuickCheck

9

10

10−import Servant.Common.BaseUrl

11+import Servant.Client.Core.Internal.BaseUrl

11

12

12spec :: Spec

13spec :: Spec

13spec = do

14spec = do

@@ -78,6 +79,3 @@ instance Arbitrary BaseUrl where

78 (1, choose (1, 20000)) :

79 (1, choose (1, 20000)) :

79 []

80 []

80 pathGen = listOf1 . elements $ letters

81 pathGen = listOf1 . elements $ letters

81−

82−isLeft :: Either a b -> Bool

83−isLeft = either (const True) (const False)

servant-client-core/test/Spec.hsnew file+1

@@ -0,0 +1 @@

1+{-# OPTIONS_GHC -F -pgmF hspec-discover #-}