Fix Error when ~/.ghcup is a valid symlink

Fixes #49
2020-08-31 13:03:12 +02:00
parent ce3d1f4309
commit 326bf510c9
5 changed files with 33 additions and 10 deletions
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -910,7 +910,7 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
          settings@Settings{dirs = Dirs{..}, ..} <- toSettings opt

          -- create ~/.ghcup dir
-          createDirRecursive newDirPerms baseDir
+          createDirRecursive' baseDir

          -- logger interpreter
          logfile <- flip runReaderT settings $ initGHCupFileLogging [rel|ghcup.log|]