X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FExitCodes.hs;h=15a1160e9b432eb02dfb2615414bdc86c2dbe0bf;hb=26d9ffe7a637c826da3b1b330843173205d79964;hp=a48980f074d4cfb2c447703476daacc4fbfe977d;hpb=a6d2e7470f17b44c0e8fe31c1268488a6788631f;p=email-validator.git

diff --git a/src/ExitCodes.hs b/src/ExitCodes.hs
index a48980f..15a1160 100644
--- a/src/ExitCodes.hs
+++ b/src/ExitCodes.hs
@@ -1,12 +1,16 @@
 -- | All exit codes that the program can return (excepting
 --   ExitSuccess). There's only one, since the program will try and
 --   fail forever upon errors.
-module ExitCodes
+module ExitCodes (
+  exit_args_parse_failed,
+  exit_input_file_doesnt_exist )
 where
 
--- |Indicates that the command-line arguments could not be parsed.
+-- | Indicates that the command-line arguments could not be parsed.
 exit_args_parse_failed :: Int
 exit_args_parse_failed = 1
 
+-- | Indicates that the input file given on the command-line does not
+--   exist.
 exit_input_file_doesnt_exist :: Int
 exit_input_file_doesnt_exist = 2