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

hlint

Browse source 
test suite still passes
This commit is contained in:
Joey Hess 2013-09-25 03:09:06 -04:00
parent 3192b059b5
commit b405295aee
30 changed files with 72 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Reinject.hs
View file

@ -34,7 +34,7 @@ start (src:dest:[])
start _ = error "specify a src file and a dest file"
perform :: FilePath -> FilePath -> (Key, Backend) -> CommandPerform
perform src _dest (key, backend) = do
perform src _dest (key, backend) =
{- Check the content before accepting it. -}
ifM (Command.Fsck.checkKeySizeOr reject key src
<&&> Command.Fsck.checkBackendOr reject backend key src)