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

use forM_ in a few places

Browse source
This commit is contained in:
Joey Hess 2011-01-31 23:27:53 -04:00
parent 27056daccd
commit 755029ae0e
3 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Unused.hs
View file

@ -7,7 +7,7 @@
module Command.Unused where
import Control.Monad (filterM, unless)
import Control.Monad (filterM, unless, forM_)
import Control.Monad.State (liftIO)
import qualified Data.Set as S
import Data.Maybe
@ -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 $ forM_ duptmp $ \t -> removeFile $ gitAnnexTmpLocation g t
return (unused, staletmp)