svn commit: r319941 - head/devel/hs-git-annex/files

[Gabor Pali]

Author: pgj
Date: Tue Jun  4 23:56:38 2013
New Revision: 319941
URL: http://svnweb.freebsd.org/changeset/ports/319941

Log:
  - Add missed patch file
  
  Obtained from:	FreeBSD Haskell

Added:
  head/devel/hs-git-annex/files/patch-Build__DesktopFile.hs   (contents, props changed)

Added: head/devel/hs-git-annex/files/patch-Build__DesktopFile.hs
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/devel/hs-git-annex/files/patch-Build__DesktopFile.hs	Tue Jun  4 23:56:38 2013	(r319941)
@@ -0,0 +1,20 @@
+--- ./Build/DesktopFile.hs.orig	2013-05-03 05:20:19.000000000 +0200
++++ ./Build/DesktopFile.hs	2013-05-09 22:23:06.000000000 +0200
+@@ -42,11 +42,15 @@
+ 
+ writeFDODesktop :: FilePath -> IO ()
+ writeFDODesktop command = do
+-	datadir <- ifM systemwideInstall ( return systemDataDir, userDataDir )
++	prefix <- catchMaybeIO (getEnv "PREFIX")
++	let (sddir,scdir) = case prefix of
++			      Just p  -> (p </> "share", p </> "etc/xdg")
++			      Nothing -> (systemDataDir, systemConfigDir)
++	datadir <- ifM systemwideInstall ( return sddir, userDataDir )
+ 	installMenu command
+ 		=<< inDestDir (desktopMenuFilePath "git-annex" datadir)
+ 
+-	configdir <- ifM systemwideInstall ( return systemConfigDir, userConfigDir )
++	configdir <- ifM systemwideInstall ( return scdir, userConfigDir )
+ 	installAutoStart command 
+ 		=<< inDestDir (autoStartPath "git-annex" configdir)
+