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

honor destdir for osx too

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

2
Build/InstallDesktopFile.hs
View file

@ -73,7 +73,7 @@ writeOSXDesktop :: FilePath -> IO ()
writeOSXDesktop command = do writeOSXDesktop command = do
home <- myHomeDir home <- myHomeDir
let base = "Library" </> "LaunchAgents" </> label ++ ".plist" let base = "Library" </> "LaunchAgents" </> label ++ ".plist"
autostart <- ifM isRoot ( return $ "/" </> base , return $ home </> base) autostart <- ifM isRoot ( inDestDir $ "/" </> base , inDestDir $ home </> base)
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\">"