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

hlint tweaks

Browse source 
Remotes.hs next, and also Backend/* and Command/*
This commit is contained in:
Joey Hess 2010-11-22 15:46:57 -04:00
parent fd11b5a3e5
commit 57adb0347b
12 changed files with 74 additions and 82 deletions
Download patch file Download diff file Expand all files Collapse all files

6
CopyFile.hs
View file

@ -15,10 +15,10 @@ import qualified SysConfig
copyFile :: FilePath -> FilePath -> IO Bool
copyFile src dest = boolSystem "cp" opts
where
opts = if (SysConfig.cp_reflink_auto)
opts = if SysConfig.cp_reflink_auto
then ["--reflink=auto", src, dest]
else if (SysConfig.cp_a)
else if SysConfig.cp_a
then ["-a", src, dest]
else if (SysConfig.cp_p)
else if SysConfig.cp_p
then ["-p", src, dest]
else [src, dest]