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 | |
| parent | 4a0fe24f394e9c5489bacaa5630b3cabefdf95e4 (diff) | |
use mapM_
| -rw-r--r-- | Command/Unused.hs | 2 | ||||
| -rw-r--r-- | GitQueue.hs | 2 | ||||
| -rw-r--r-- | Remotes.hs | 2 | ||||
| -rw-r--r-- | Upgrade.hs | 2 |
4 files changed, 4 insertions, 4 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) diff --git a/GitQueue.hs b/GitQueue.hs index d8ba86136..0cb64caef 100644 --- a/GitQueue.hs +++ b/GitQueue.hs @@ -45,7 +45,7 @@ add queue subcommand params file = M.insertWith (++) action [file] queue {- Runs a queue on a git repository. -} run :: Git.Repo -> Queue -> IO () run repo queue = do - _ <- mapM (uncurry $ runAction repo) $ M.toList queue + mapM_ (uncurry $ runAction repo) $ M.toList queue return () {- Runs an Action on a list of files in a git repository. diff --git a/Remotes.hs b/Remotes.hs index 616db225e..9f1e2ee50 100644 --- a/Remotes.hs +++ b/Remotes.hs @@ -104,7 +104,7 @@ readConfigs = do list doexpensive ++ "..." let todo = cheap ++ doexpensive unless (null todo) $ do - _ <- mapM tryGitConfigRead todo + mapM_ tryGitConfigRead todo Annex.changeState $ \s -> s { Annex.remotesread = True } where cachedUUID r = do diff --git a/Upgrade.hs b/Upgrade.hs index 1e70e68d5..9c5a57a0c 100644 --- a/Upgrade.hs +++ b/Upgrade.hs @@ -41,7 +41,7 @@ upgradeFrom0 = do -- do the reorganisation of the files let olddir = gitAnnexDir g keys <- getKeysPresent0' olddir - _ <- mapM (\k -> moveAnnex k $ olddir </> keyFile k) keys + mapM_ (\k -> moveAnnex k $ olddir </> keyFile k) keys -- update the symlinks to the files files <- liftIO $ Git.inRepo g [Git.workTree g] |