X-Git-Url: http://gitweb.michael.orlitzky.com/?p=email-validator.git;a=blobdiff_plain;f=src%2FMain.hs;h=5059479679c3d0e593d38196654f7905a57ea730;hp=7a57dad3ad9179196dd1465cf16b29e38180106d;hb=2ac26d82b77e3fa84efb5f8593b7b92416929e9e;hpb=a5ec0be3b3907e1ad24e9d6ec31e2a4184e11545

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