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

use mapM_

Browse source
This commit is contained in:
Joey Hess 2011-01-31 13:52:11 -04:00
parent 4a0fe24f39
commit d007e58a54
4 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Unused.hs
View file

@ -88,7 +88,7 @@ unusedKeys = do
-- Tmp files that are dups of content already present can simply
-- be removed.
_ <- liftIO $ mapM (\t -> removeFile $ gitAnnexTmpLocation g t) duptmp
liftIO $ mapM_ (\t -> removeFile $ gitAnnexTmpLocation g t) duptmp
return (unused, staletmp)