src/Main.hs: add explicit export list.

[email-validator.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index 7a57dad3ad9179196dd1465cf16b29e38180106d..4a0208b05372564cdd6fa6e5d8e9bca116380078 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE DoAndIfThenElse #-}
 {-# LANGUAGE RecordWildCards #-}
 
-module Main
+module Main (main)
 where
 
 import Control.Concurrent.ParallelIO.Global (
@@ -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