flip catchDefaultIO
This commit is contained in:
parent
ba744c84a4
commit
e8188ea611
18 changed files with 29 additions and 26 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue