Ensure directories

2021-06-13 13:41:06 +02:00
parent ef0c94fddd
commit b56c44a210
5 changed files with 21 additions and 10 deletions
--- a/lib/GHCup/Download.hs
+++ b/lib/GHCup/Download.hs
@@ -227,7 +227,6 @@ getBase dirs@Dirs{..} Settings{ downloader }  =
          else -- access in less than 5 minutes, re-use file
               liftIO $ L.readFile json_file
      else do
-        liftIO $ createDirRecursive' cacheDir
        getModTime >>= \case
          Just modTime -> dlWithMod modTime json_file
          Nothing -> do