From 3d49f79bebeb6503a7b227520b8f135d0578fc7b Mon Sep 17 00:00:00 2001 From: Arjun Kathuria Date: Sun, 10 Jul 2022 09:52:57 +0530 Subject: [PATCH] removes `prettyShow` from error case in BrickMain set' --- app/ghcup/BrickMain.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/ghcup/BrickMain.hs b/app/ghcup/BrickMain.hs index 7f80e12..81cfd22 100644 --- a/app/ghcup/BrickMain.hs +++ b/app/ghcup/BrickMain.hs @@ -518,7 +518,7 @@ set' bs input@(_, ListResult {..}) = do PromptYes -> do res <- install' bs input case res of - (Left err) -> pure $ Left (prettyShow err) + (Left err) -> pure $ Left err (Right _) -> do logInfo "Setting now..." set' bs input