hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Skip copying metadata if source and destination match

Browse Source
This commit is contained in:
Julian Ospald 2021-08-07 09:55:45 +02:00
parent e903aeb555
commit 6e07e9e56b
Signed by: hasufell
GPG Key ID: 3786C5262ECB4A3F
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lib/GHCup/Download.hs
View File

@ -321,7 +321,22 @@ download uri eDigest dest mfn etags
-- destination dir must exist -- destination dir must exist
liftIO $ createDirRecursive' dest liftIO $ createDirRecursive' dest
let fromFile = T.unpack . decUTF8Safe $ path let fromFile = T.unpack . decUTF8Safe $ path
liftIO $ copyFile fromFile destFile
-- clean up etags file
liftIO $ hideError doesNotExistErrorType $ rmFile (etagsFile destFile)
-- check if source and dest are the same and skip in that case
fromFileNormalized <- handleIO
(\_ -> pure $ normalise fromFile)
(liftIO $ canonicalizePath fromFile)
destFileNormalized <- handleIO
(\_ -> pure $ normalise destFile)
(liftIO $ canonicalizePath destFile)
if | fromFileNormalized /= destFileNormalized -> do
lift $ $(logDebug) [i|cp #{fromFile} #{destFile}|]
liftIO $ copyFile fromFile destFile
| otherwise -> lift $ $(logDebug) [i|destination and source match, skipping: #{destFile}|]
pure destFile pure destFile
dl = do dl = do
let uri' = decUTF8Safe (serializeURIRef' uri) let uri' = decUTF8Safe (serializeURIRef' uri)