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

hlint

Browse source
This commit is contained in:
Joey Hess 2013-02-18 02:39:40 -04:00
parent 9aa979edbd
commit 422dd28f0b
3 changed files with 15 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Annex/Content/Direct.hs
View file

@ -75,7 +75,7 @@ removeAssociatedFile key file = do
addAssociatedFile :: Key -> FilePath -> Annex [FilePath]
addAssociatedFile key file = do
file' <- normaliseAssociatedFile file
changeAssociatedFiles key $ \files -> do
changeAssociatedFiles key $ \files ->
if file' `elem` files
then files
else file':files