summaryrefslogtreecommitdiff
path: root/Command/Unused.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-01-31 13:52:11 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-01-31 13:52:11 -0400
commitd007e58a5437daa72062453fc6f44c5beb7d271d (patch)
tree54a132301bef084fec8ba2ce283b8ea505863f89 /Command/Unused.hs
parent4a0fe24f394e9c5489bacaa5630b3cabefdf95e4 (diff)
use mapM_
Diffstat (limited to 'Command/Unused.hs')
-rw-r--r--Command/Unused.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs
index 28a26f82c..fecfec742 100644
--- a/Command/Unused.hs
+++ b/Command/Unused.hs
@@ -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)