Ensure directories

2021-06-13 13:41:06 +02:00
parent ef0c94fddd
commit b56c44a210
5 changed files with 21 additions and 10 deletions
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -1095,10 +1095,10 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
    >>= \opt@Options {..} -> do
          dirs <- getDirs

-          (settings, keybindings) <- toSettings opt
-
          -- create ~/.ghcup dir
-          createDirRecursive' (baseDir dirs)
+          ensureDirectories dirs
+
+          (settings, keybindings) <- toSettings opt

          -- logger interpreter
          logfile <- initGHCupFileLogging (logsDir dirs)