From: Michael Orlitzky 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: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=2ac26d82b77e3fa84efb5f8593b7b92416929e9e;p=email-validator.git 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