use mapM_

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)
 

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.

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

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]