Fix failed ghcup upgrade if destination dir doesn't exist

Fixes #109
2021-02-16 14:37:17 +01:00 · 2021-02-16 14:37:17 +01:00 · d82e189c01
parent e5a60d1b9a
commit d82e189c01
1 changed files with 9 additions and 4 deletions
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@ -1314,12 +1314,17 @@ upgradeGHCup dls mtarget force pfreq = do
  tmp   <- lift withGHCupTmpDir
  let fn = [rel|ghcup|]
  p <- liftE $ download dli tmp (Just fn)
-  let fullDest = fromMaybe (binDir </> fn) mtarget
-  liftIO $ hideError NoSuchThing $ deleteFile fullDest
+  let destDir = dirname destFile
+      destFile = fromMaybe (binDir </> fn) mtarget
+  lift $ $(logDebug) [i|mkdir -p #{toFilePath destDir}|]
+  liftIO $ createDirRecursive' destDir
+  lift $ $(logDebug) [i|rm -f #{toFilePath destFile}|]
+  liftIO $ hideError NoSuchThing $ deleteFile destFile
+  lift $ $(logDebug) [i|cp #{toFilePath p} #{toFilePath destFile}|]
  handleIO (throwE . CopyError . show) $ liftIO $ copyFile p
-                                                           fullDest
+                                                           destFile
                                                           Overwrite
-  lift $ chmod_755 fullDest
+  lift $ chmod_755 destFile
  pure latestVer