mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use copyFile (supports binary icon file)

Browse source
This commit is contained in:
Joey Hess 2012-09-23 12:24:46 -04:00
parent 52b2fbd121
commit 377636850e
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Build/InstallDesktopFile.hs
View file

@ -99,9 +99,10 @@ installOSXAppFile appdir appfile mcontent = do
( return $ "/Applications" </> appdir </> appfile ( return $ "/Applications" </> appdir </> appfile
, return $ home </> "Desktop" </> appdir </> appfile , return $ home </> "Desktop" </> appdir </> appfile
) )
content <- maybe (readFile src) return mcontent
createDirectoryIfMissing True (parentDir dest) createDirectoryIfMissing True (parentDir dest)
writeFile dest content case mcontent of
Just content -> writeFile dest content
Nothing -> copyFile src dest
mode <- fileMode <$> getFileStatus src mode <- fileMode <$> getFileStatus src
setFileMode dest mode setFileMode dest mode