Skip site navigation (1)Skip section navigation (2)
Date:      Tue, 4 Jun 2013 23:56:38 +0000 (UTC)
From:      Gabor Pali <pgj@FreeBSD.org>
To:        ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org
Subject:   svn commit: r319941 - head/devel/hs-git-annex/files
Message-ID:  <201306042356.r54NucY3033043@svn.freebsd.org>

next in thread | raw e-mail | index | archive | help
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)
+ 



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201306042356.r54NucY3033043>