flip catchDefaultIO

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

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