X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FExitCodes.hs;fp=src%2FExitCodes.hs;h=b190489bf3f1c6bb808f0b3abdf9b7b24a565b95;hp=0000000000000000000000000000000000000000;hb=53c26134670775854677470e402b8b41f19246d1;hpb=94484087fbfe98d6735aa82798a9bf506f97fd19

diff --git a/src/ExitCodes.hs b/src/ExitCodes.hs
new file mode 100644
index 0000000..b190489
--- /dev/null
+++ b/src/ExitCodes.hs
@@ -0,0 +1,8 @@
+-- |All exit codes that the program can return (excepting ExitSuccess).
+-- There's only one, since the program will try/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