Create brick tui wrt #24

2020-07-06 22:39:16 +02:00
parent 35bf9b5ff2
commit da94fa5f92
9 changed files with 403 additions and 24 deletions
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -927,6 +927,8 @@ upgradeGHCup dls mtarget force = do
          `unionFileModes` ownerExecuteMode
          `unionFileModes` groupExecuteMode
          `unionFileModes` otherExecuteMode
+  binDir <- liftIO $ ghcupBinDir
+  liftIO $ createDirIfMissing newDirPerms binDir
  case mtarget of
    Nothing -> do
      dest <- liftIO $ ghcupBinDir