16d3223 · elk · git.iko.soy

on master help sign in

add some extra info for better DocsProblem error messages

16d3223Evan Czaplicki7 years ago

terminal/src/Diff.hs+2−2

@@ -123,13 +123,13 @@ diff env@(Env _ _ _ registry) args =

123getDocs :: Env -> Pkg.Name -> Registry.KnownVersions -> V.Version -> Task Docs.Documentation

124getDocs (Env _ cache manager _) name (Registry.KnownVersions latest previous) version =

125 if latest == version || elem version previous

126− then Task.eio Exit.DiffDocsProblem $ DD.getDocs cache manager name version

126+ then Task.eio (Exit.DiffDocsProblem version) $ DD.getDocs cache manager name version

127 else Task.throw $ Exit.DiffUnknownVersion name version (latest:previous)

128

129

130getLatestDocs :: Env -> Pkg.Name -> Registry.KnownVersions -> Task Docs.Documentation

131getLatestDocs (Env _ cache manager _) name (Registry.KnownVersions latest _) =

132− Task.eio Exit.DiffDocsProblem $ DD.getDocs cache manager name latest

132+ Task.eio (Exit.DiffDocsProblem latest) $ DD.getDocs cache manager name latest

133

134

135

terminal/src/Publish.hs+2−2

@@ -335,7 +335,7 @@ verifyBump (Env _ cache manager _ _) pkg vsn newDocs knownVersions@(Registry.Kno

335 do result <- Diff.getDocs cache manager pkg old

336 case result of

337 Left dp ->

338− return $ Left $ Exit.PublishCannotGetDocs dp

338+ return $ Left $ Exit.PublishCannotGetDocs old new dp

339

340 Right oldDocs ->

341 let

@@ -384,7 +384,7 @@ reportPublishStart pkg vsn maybeKnownVersions =

384 putStrLn $ Exit.newPackageOverview ++ "\nI will now verify that everything is in order...\n"

385

386 Just _ ->

387− putStrLn $ "Verifying" ++ Pkg.toChars pkg ++ V.toChars vsn ++ "...\n"

387+ putStrLn $ "Verifying " ++ Pkg.toChars pkg ++ " " ++ V.toChars vsn ++ " ...\n"

388

389

390