X-Git-Url: http://gitweb.michael.orlitzky.com/?p=email-validator.git;a=blobdiff_plain;f=src%2FMain.hs;h=551dae752ae3343446716b520f0d13bb5274ed74;hp=0e7c30fa03bd5d93e23a5f61acf716d55ff549a9;hb=4bce4546cbd70c8aab8ca81441010e0527ebbb07;hpb=557e4962c50303b1eb4ca0e1d3de5e5852c6275c

diff --git a/src/Main.hs b/src/Main.hs
index 0e7c30f..551dae7 100644
--- 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.