@@ -71,22 +71,12 @@ data Env =
7171
7272getEnv :: Task.Task Exit.Publish Env
7373getEnv =
74− do maybeRoot <- Task.io $ Stuff.findRoot
75− case maybeRoot of
76− Nothing ->
77− Task.throw Exit.PublishNoOutline
78−
79− Just root ->
80− do cache <- Task.io $ Stuff.getPackageCache
81− manager <- Task.io $ Http.getManager
82− registry <- Task.eio Exit.PublishMustHaveLatestRegistry $ Registry.latest manager cache
83− outlineResult <- Task.io $ Outline.read root
84− case outlineResult of
85− Right outline ->
86− return $ Env root cache manager registry outline
87−
88− Left problem ->
89− Task.throw $ Exit.PublishBadOutline problem
74+ do root <- Task.mio Exit.PublishNoOutline $ Stuff.findRoot
75+ cache <- Task.io $ Stuff.getPackageCache
76+ manager <- Task.io $ Http.getManager
77+ registry <- Task.eio Exit.PublishMustHaveLatestRegistry $ Registry.latest manager cache
78+ outline <- Task.eio Exit.PublishBadOutline $ Outline.read root
79+ return $ Env root cache manager registry outline
9080
9181
9282
@@ -266,11 +256,13 @@ verifyNoChanges git commitHash vsn =
266256verifyZip :: Env -> Pkg.Name -> V.Version -> Task.Task Exit.Publish Http.Sha
267257verifyZip (Env root _ manager _ _) pkg vsn =
268258 withTempDir root $ \prepublishDir ->
269− do (sha, archive) <-
259+ do let url = toZipUrl pkg vsn
260+
261+ (sha, archive) <-
270262 reportDownloadCheck $
271− Http.getArchive manager (toZipUrl pkg vsn)
263+ Http.getArchive manager url
272264 Exit.PublishCannotGetZip
273− Exit.PublishCannotDecodeZip
265+ (Exit.PublishCannotDecodeZip url)
274266 (return . Right)
275267
276268 Task.io $ File.writePackage prepublishDir archive