Greatly simplify the CommandLine module.

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

diff --git a/src/Main.hs b/src/Main.hs
index 0e7c30fa03bd5d93e23a5f61acf716d55ff549a9..551dae752ae3343446716b520f0d13bb5274ed74 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -34,7 +34,7 @@ import System.IO (
   stdout)
 
 
-import CommandLine (Args(..), apply_args)
+import CommandLine (Args(..), get_args)
 import EmailAddress
 import ExitCodes (exit_input_file_doesnt_exist)
 
@@ -103,7 +103,7 @@ validate resolver accept_a rfc5322 address = do
 
 main :: IO ()
 main = do
-  Args{..} <- apply_args
+  Args{..} <- get_args
 
   -- Get the input from either stdin, or the file given on the command
   -- line.