aboutsummaryrefslogtreecommitdiff
path: root/Utility/CopyFile.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-07-15 12:47:14 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-07-15 12:47:14 -0400
commit6c396a256c93464d726c66a95132536941871ee8 (patch)
tree7f934c9eae22a9cfd3fb1672ebd7bf6870439c81 /Utility/CopyFile.hs
parent185f0b687081f47d059cc0503f4f6b671868f753 (diff)
finished hlint pass
Diffstat (limited to 'Utility/CopyFile.hs')
-rw-r--r--Utility/CopyFile.hs12
1 files changed, 5 insertions, 7 deletions
diff --git a/Utility/CopyFile.hs b/Utility/CopyFile.hs
index 5ee4a91df..2e06dd92b 100644
--- a/Utility/CopyFile.hs
+++ b/Utility/CopyFile.hs
@@ -20,10 +20,8 @@ copyFile src dest = do
removeFile dest
boolSystem "cp" [params, File src, File dest]
where
- params = if SysConfig.cp_reflink_auto
- then Params "--reflink=auto"
- else if SysConfig.cp_a
- then Params "-a"
- else if SysConfig.cp_p
- then Params "-p"
- else Params ""
+ params
+ | SysConfig.cp_reflink_auto = Params "--reflink=auto"
+ | SysConfig.cp_a = Params "-a"
+ | SysConfig.cp_p = Params "-p"
+ | otherwise = Params ""