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

only write data file when installing as normal user

Browse source
This commit is contained in:
Joey Hess 2012-08-02 13:12:36 -04:00
parent d2b48cacdb
commit 6b38227bad
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Build/InstallDesktopFile.hs
View file

@ -46,9 +46,10 @@ writeDesktop command = do
writeDesktopMenuFile (autostart command) $
autoStartPath "git-annex" configdir
programfile <- programFile
createDirectoryIfMissing True (parentDir programFile)
writeFile programfile command
when (uid /= 0) $ do
programfile <- programFile
createDirectoryIfMissing True (parentDir programFile)
writeFile programfile command
main = getArgs >>= go
where