mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2025-01-14 07:43:06 +00:00
Code Issues Releases Activity

- Add missed patch file

Browse Source 
Obtained from:	FreeBSD Haskell
This commit is contained in:
Gabor Pali 2013-06-04 23:56:38 +00:00
parent 5dc93fbaa2
commit 27999802e0
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=319941
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
devel/hs-git-annex/files/patch-Build__DesktopFile.hs Normal file
View File

@ -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)