From d007e58a5437daa72062453fc6f44c5beb7d271d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 31 Jan 2011 13:52:11 -0400
Subject: [PATCH] use mapM_

---
 Command/Unused.hs | 2 +-
 GitQueue.hs       | 2 +-
 Remotes.hs        | 2 +-
 Upgrade.hs        | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Command/Unused.hs b/Command/Unused.hs
index 28a26f82c6..fecfec7422 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 d8ba861366..0cb64caefb 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 616db225ef..9f1e2ee507 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 1e70e68d56..9c5a57a0c2 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]