diff options
author | Joey Hess <joey@kitenet.net> | 2011-01-31 23:27:53 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-01-31 23:27:53 -0400 |
commit | 755029ae0e46e9d4ca2b7416d5a67b2be34eec0a (patch) | |
tree | e010cd227fce6a994c25ff1845d802c6e29ef838 /Command/Unused.hs | |
parent | 27056daccd1a2f541cd104a835a32523a532d4da (diff) |
use forM_ in a few places
Diffstat (limited to 'Command/Unused.hs')
-rw-r--r-- | Command/Unused.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index fecfec742..d9f4e3978 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -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) |