git.iko.soy/stackage
on master help sign in
Fix test suite
06d70e4Michael Snoyman
stackage.cabal+3−1
compare with master
unifiedsplit
@@ -1,5 +1,5 @@
1name: stackage
1name: stackage
2−version: 0.2.1.2
2+version: 0.2.1.3
3synopsis: "Stable Hackage," tools for creating a vetted set of packages from Hackage.
3synopsis: "Stable Hackage," tools for creating a vetted set of packages from Hackage.
4description: Please see <http://www.stackage.org/package/stackage> for a description and documentation.
4description: Please see <http://www.stackage.org/package/stackage> for a description and documentation.
5homepage: https://github.com/fpco/stackage
5homepage: https://github.com/fpco/stackage
@@ -87,6 +87,8 @@ test-suite spec
87 , Cabal
87 , Cabal
88 , yaml
88 , yaml
89 , containers
89 , containers
90+ , http-client
91+ , http-client-tls
90
92
91source-repository head
93source-repository head
92 type: git
94 type: git
test/Stackage/BuildPlanSpec.hs+4−2
@@ -9,10 +9,12 @@ import Test.Hspec
9import qualified Data.Yaml as Y
9import qualified Data.Yaml as Y
10import Distribution.Version (anyVersion)
10import Distribution.Version (anyVersion)
11import qualified Data.Map as Map
11import qualified Data.Map as Map
12+import Network.HTTP.Client (withManager)
13+import Network.HTTP.Client.TLS (tlsManagerSettings)
12
14
13spec :: Spec
15spec :: Spec
14−spec = it "works" $ do
16+spec = it "works" $ withManager tlsManagerSettings $ \man -> do
15− bc <- defaultBuildConstraints (error "manager should not be used")
17+ bc <- defaultBuildConstraints man
16 bp <- newBuildPlan bc
18 bp <- newBuildPlan bc
17 let bs = Y.encode bp
19 let bs = Y.encode bp
18 ebp' = Y.decodeEither bs
20 ebp' = Y.decodeEither bs