Implements --force install for Stack

2021-09-11 21:58:11 +05:30
parent 6ac7a75bab
commit 10a30bbf38
3 changed files with 37 additions and 19 deletions
--- a/app/ghcup/BrickMain.hs
+++ b/app/ghcup/BrickMain.hs
@@ -452,7 +452,7 @@ install' _ (_, ListResult {..}) = do
          liftE $ installHLSBin lVer Nothing False $> vi
        Stack -> do
          let vi = getVersionInfo lVer Stack dls
-          liftE $ installStackBin lVer Nothing $> vi
+          liftE $ installStackBin lVer Nothing False $> vi
    )
    >>= \case
          VRight vi                         -> do