mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

flip catchDefaultIO

Browse source
This commit is contained in:
Joey Hess 2012-09-17 00:18:07 -04:00
parent ba744c84a4
commit e8188ea611
18 changed files with 29 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Build/InstallDesktopFile.hs
View file

@ -49,7 +49,7 @@ isRoot = do
inDestDir :: FilePath -> IO FilePath
inDestDir f = do
destdir <- catchDefaultIO (getEnv "DESTDIR") ""
destdir <- catchDefaultIO "" (getEnv "DESTDIR")
return $ destdir </> f
writeFDODesktop :: FilePath -> IO ()