@@ -9,10 +9,12 @@ import Test.Hspec
99import qualified Data.Yaml as Y
1010import Distribution.Version (anyVersion)
1111import qualified Data.Map as Map
12+import Network.HTTP.Client (withManager)
13+import Network.HTTP.Client.TLS (tlsManagerSettings)
1214
1315spec :: Spec
14−spec = it "works" $ do
15− bc <- defaultBuildConstraints (error "manager should not be used")
16+spec = it "works" $ withManager tlsManagerSettings $ \man -> do
17+ bc <- defaultBuildConstraints man
1618 bp <- newBuildPlan bc
1719 let bs = Y.encode bp
1820 ebp' = Y.decodeEither bs