Avoid installing desktop file and program file if cabal install git-annex is run as root, since that is not a systemwide install, but to /root, and so generating a systemwide desktop file is not right.

1 files changed, 1 insertions, 1 deletions

diff --git a/Setup.hs b/Setup.hs
index f0c9fb4eb..a3c1f1cf6 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -64,7 +64,7 @@ installManpages copyDest verbosity pkg lbi =
 installDesktopFile :: CopyDest -> Verbosity -> PackageDescription -> LocalBuildInfo -> IO ()
 installDesktopFile copyDest _verbosity pkg lbi
 	| progfile copyDest == progfile NoCopyDest =
-		DesktopFile.install (progfile copyDest)
+		DesktopFile.installUser (progfile copyDest)
 	| otherwise = return ()
   where
 	progfile cd = bindir (absoluteInstallDirs pkg lbi cd) </> "git-annex"