diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-31 13:52:11 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-31 13:52:11 -0400 |
| commit | d007e58a5437daa72062453fc6f44c5beb7d271d (patch) | |
| tree | 54a132301bef084fec8ba2ce283b8ea505863f89 /Command/Unused.hs | |
| parent | 4a0fe24f394e9c5489bacaa5630b3cabefdf95e4 (diff) | |
use mapM_
Diffstat (limited to 'Command/Unused.hs')
| -rw-r--r-- | Command/Unused.hs | 2 |
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) |