From 9c7d17800dd859126b3d5509f160356e130eee57 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Tue, 17 Mar 2020 18:39:51 +0100 Subject: [PATCH] Create ~/.ghcup dir on start --- app/ghcup/Main.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/app/ghcup/Main.hs b/app/ghcup/Main.hs index 3771799..4483bf3 100644 --- a/app/ghcup/Main.hs +++ b/app/ghcup/Main.hs @@ -588,6 +588,10 @@ main = do , DownloadFailed ] + -- create ~/.ghcup dir + ghcdir <- ghcupBaseDir + createDirIfMissing newDirPerms ghcdir + dls <- ( runLogger . flip runReaderT settings