Add more Haddock comments.

[hath.git] / src / ExitCodes.hs

diff --git a/src/ExitCodes.hs b/src/ExitCodes.hs
new file mode 100644 (file)
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