Integrate with errors.haskell.org

Fixes #434
2022-12-20 00:10:19 +08:00
parent 109187eb6f
commit 009f9211a9
27 changed files with 570 additions and 211 deletions
--- a/lib/GHCup/Utils.hs
+++ b/lib/GHCup/Utils.hs
@@ -1301,7 +1301,7 @@ gitOut args dir = do
    ExitSuccess   -> pure $ T.pack $ stripNewlineEnd $ T.unpack $ decUTF8Safe' _stdOut
    ExitFailure c -> do
      let pe = NonZeroExit c "git" args
-      lift $ logDebug $ T.pack (prettyShow pe)
+      lift $ logDebug $ T.pack (prettyHFError pe)
      throwE pe

 processBranches :: T.Text -> [String]