From ee72d4ca76758aa9fcfff0b74d68d6d175d1e715 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 20 Apr 2013 18:48:05 -0400
Subject: Install FDO desktop menu file when webapp is started in standalone
 mode.

---
 Assistant/Install.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Assistant')

diff --git a/Assistant/Install.hs b/Assistant/Install.hs
index b5d3ca98d..56a29c2b3 100644
--- a/Assistant/Install.hs
+++ b/Assistant/Install.hs
@@ -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
-- 
cgit v1.2.3