Make sure directories exist

app/ghcup/Main.hs

@@ -493,6 +493,10 @@ main = do
     >>= \opt@Options {..} -> do
           let settings = toSettings opt
 
+          -- create ~/.ghcup dir
+          ghcdir <- ghcupBaseDir
+          createDirIfMissing newDirPerms ghcdir
+
           -- logger interpreter
           logfile <- initGHCupFileLogging [rel|ghcup.log|]
           let runLogger = myLoggerT LoggerConfig
@@ -588,10 +592,6 @@ main = do
                       , DownloadFailed
                       ]
 
-          -- create ~/.ghcup dir
-          ghcdir <- ghcupBaseDir
-          createDirIfMissing newDirPerms ghcdir
-
           dls <-
             ( runLogger
               . flip runReaderT settings