Permalink
Browse files

Another fix for ghc-7

  • Loading branch information...
1 parent 4891430 commit 19517ff484a535ee02db8872e98ffe0455f0d717 @jwiegley committed Sep 10, 2011
Showing with 3 additions and 3 deletions.
  1. +3 −3 una.hs
View
@@ -400,9 +400,9 @@ extract rpath overwrite = do
getDestination = do
destpath <- getOption output
cwd <- getCurrentDirectory
- return $ if null destpath
- then cwd
- else destpath </> takeFileName basename
+ return $ (if null destpath
+ then cwd
+ else destpath) </> takeFileName basename
-- The variations of extract' receive a list of archive types yet to
-- be "unwrapped" from the previous extraction, plus a cleanup action

0 comments on commit 19517ff

Please sign in to comment.