update after RawFilePath transition

This commit is contained in:
Joey Hess 2020-11-09 12:06:53 -04:00
parent 7df2979d98
commit dd52d8ebdc
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
5 changed files with 31 additions and 13 deletions

View file

@ -24,6 +24,7 @@ import Utility.Path
import Utility.Exception
import Utility.Env
import Utility.Split
import Utility.FileSystemEncoding
import qualified Data.Map as M
import qualified Data.Set as S
@ -63,7 +64,7 @@ installLibs appbase installedbins replacement_libs libmap = do
ifM (doesFileExist dest)
( return Nothing
, do
createDirectoryIfMissing True (parentDir dest)
createDirectoryIfMissing True (fromRawFilePath (parentDir (toRawFilePath dest)))
putStrLn $ "installing " ++ pathlib ++ " as " ++ shortlib
unlessM (boolSystem "cp" [File pathlib, File dest]
<&&> boolSystem "chmod" [Param "644", File dest]