From 2ac26d82b77e3fa84efb5f8593b7b92416929e9e Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 8 Mar 2019 16:31:55 -0500
Subject: [PATCH] src/Main.hs: use "mapM_" instead of "_ <- mapM" in one place.

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index 7a57dad..5059479 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -145,7 +145,7 @@ main = do
 
   -- Output the results.
   let valid_addresses = map fst valid_results
-  _ <- mapM (BS.hPutStrLn output_handle) valid_addresses
+  mapM_ (BS.hPutStrLn output_handle) valid_addresses
 
   stopGlobalPool
 
-- 
2.44.2