@@ -270,7 +270,7 @@ verifyNoChanges git commitHash vsn =
271verifyZip :: Env -> Pkg.Name -> V.Version -> Task.Task Exit.Publish Http.Sha
271verifyZip :: Env -> Pkg.Name -> V.Version -> Task.Task Exit.Publish Http.Sha
272verifyZip (Env root _ manager _ _) pkg vsn =
272verifyZip (Env root _ manager _ _) pkg vsn =
273− withTempDir root $ \prepublishDir ->
273+ withPrepublishDir root $ \prepublishDir ->
274 do let url = toZipUrl pkg vsn
274 do let url = toZipUrl pkg vsn
276 (sha, archive) <-
276 (sha, archive) <-
@@ -294,8 +294,8 @@ toZipUrl pkg vsn =
294 "https://github.com/" ++ Pkg.toUrl pkg ++ "/zipball/" ++ V.toChars vsn ++ "/"
294 "https://github.com/" ++ Pkg.toUrl pkg ++ "/zipball/" ++ V.toChars vsn ++ "/"
297−withTempDir :: FilePath -> (FilePath -> Task.Task x a) -> Task.Task x a
297+withPrepublishDir :: FilePath -> (FilePath -> Task.Task x a) -> Task.Task x a
298−withTempDir root callback =
298+withPrepublishDir root callback =
300 dir = Stuff.prepublishDir root
300 dir = Stuff.prepublishDir root