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

Install FDO desktop menu file when webapp is started in standalone mode.

Browse source
This commit is contained in:
Joey Hess 2013-04-20 18:48:05 -04:00
parent 0d723e736e
commit d2e92e2494
3 changed files with 4 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/Install.hs
View file

@ -11,6 +11,7 @@ module Assistant.Install where
import Assistant.Common
import Assistant.Install.AutoStart
import Assistant.Install.Menu
import Assistant.Ssh
import Locations.UserConfig
import Utility.FileMode
@ -49,6 +50,8 @@ ensureInstalled = go =<< standaloneAppBase
#ifdef darwin_HOST_OS
autostartfile <- userAutoStart osxAutoStartLabel
#else
installMenu program
=<< desktopMenuFilePath "git-annex" <$> userConfigDir
autostartfile <- autoStartPath "git-annex" <$> userConfigDir
#endif
installAutoStart program autostartfile