Add command-line processing.

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

diff --git a/src/ExitCodes.hs b/src/ExitCodes.hs
new file mode 100644 (file)
index 0000000..a48980f
--- /dev/null
+++ b/src/ExitCodes.hs
@@ -0,0 +1,12 @@
+-- | 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
+where
+
+-- |Indicates that the command-line arguments could not be parsed.
+exit_args_parse_failed :: Int
+exit_args_parse_failed = 1
+
+exit_input_file_doesnt_exist :: Int
+exit_input_file_doesnt_exist = 2