From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 8 Mar 2019 21:31:55 +0000 (-0500)
Subject: src/Main.hs: use "mapM_" instead of "_ <- mapM" in one place.
X-Git-Tag: 1.0.0~10
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=email-validator.git;a=commitdiff_plain;h=2ac26d82b77e3fa84efb5f8593b7b92416929e9e

src/Main.hs: use "mapM_" instead of "_ <- mapM" in one place.
---

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