hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Behavior Enhancement: make user press "S" only once to set, asks to install AND set if tool uninstalled

Browse Source
This commit is contained in:
Arjun Kathuria 2022-06-28 19:50:22 +05:30
parent 3bbc1edb19
commit 7cbe38b011
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/ghcup/BrickMain.hs
View File

@ -515,7 +515,14 @@ set' bs input@(_, ListResult {..}) = do
(V (NotInstalled tool _)) -> do (V (NotInstalled tool _)) -> do
promptAnswer <- getUserPromptResponse userPrompt promptAnswer <- getUserPromptResponse userPrompt
case promptAnswer of case promptAnswer of
PromptYes -> install' bs input PromptYes -> do
res <- install' bs input
case res of
(Left err) -> pure $ Left (prettyShow err)
(Right _) -> do
logInfo "Setting now..."
set' bs input
PromptNo -> pure $ Left (prettyShow e) PromptNo -> pure $ Left (prettyShow e)
where where
userPrompt = L.toStrict $ userPrompt = L.toStrict $