X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FExitCodes.hs;fp=src%2FExitCodes.hs;h=4257191b56eeace1e82d0bb788000eb9099b0501;hb=e1d16438b44ecd962565756a828c9ed8014cf894;hp=0000000000000000000000000000000000000000;hpb=909e781852e3566fcaa16e156437ebe5bfc89e02;p=hath.git

diff --git a/src/ExitCodes.hs b/src/ExitCodes.hs
new file mode 100644
index 0000000..4257191
--- /dev/null
+++ b/src/ExitCodes.hs
@@ -0,0 +1,11 @@
+-- | Some exit codes, used in the ExitFailure constructor.
+module ExitCodes
+where
+
+-- | One of the CIDRs is invalid (malformed, not a CIDR at all, etc).
+exit_invalid_cidr :: Int
+exit_invalid_cidr = 1
+
+-- | We were unable to parse the command-line arguments.
+exit_args_parse_failed :: Int
+exit_args_parse_failed = 2