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

make directory

Browse source
This commit is contained in:
Joey Hess 2012-09-06 13:06:44 -04:00
parent 426d536705
commit b3df6b1736
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Build/InstallDesktopFile.hs
View file

@ -74,6 +74,7 @@ writeOSXDesktop command = do
home <- myHomeDir home <- myHomeDir
let base = "Library" </> "LaunchAgents" </> label ++ ".plist" let base = "Library" </> "LaunchAgents" </> label ++ ".plist"
autostart <- ifM isRoot ( inDestDir $ "/" </> base , inDestDir $ home </> base) autostart <- ifM isRoot ( inDestDir $ "/" </> base , inDestDir $ home </> base)
createDirectoryIfMissing True (parentDir autostart)
writeFile autostart $ unlines writeFile autostart $ unlines
[ "<?xml version=\"1.0\" encoding=\"UTF-8\"?>" [ "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"
, "<!DOCTYPE plist PUBLIC \"-//Apple//DTD PLIST 1.0//EN\" \"http://www.apple.com/DTDs/PropertyList-1.0.dtd\">" , "<!DOCTYPE plist PUBLIC \"-//Apple//DTD PLIST 1.0//EN\" \"http://www.apple.com/DTDs/PropertyList-1.0.dtd\">"