X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FExitCodes.hs;h=7597a54723e0fa28d466f195f5161e60698ea3c4;hp=11c03f9b67a7e53cff4bfbd2a71a1e7df4971512;hb=d7c6b5499c0969b6e488d9fc583f93bbb4e3d4c7;hpb=69b8af30f49aaad0f5c051998d2556b9ec291df7

diff --git a/src/ExitCodes.hs b/src/ExitCodes.hs
index 11c03f9..7597a54 100644
--- a/src/ExitCodes.hs
+++ b/src/ExitCodes.hs
@@ -1,9 +1,9 @@
--- |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
+-- | All exit codes that the program can return (excepting
+--   ExitSuccess).
+module ExitCodes ( exit_no_usernames )
 where
 
--- |Indicates that the command-line arguments could not be parsed.
-exit_args_parse_failed :: Int
-exit_args_parse_failed = 1
+-- | No usernames found on either the command-line or in a config
+--   file.
+exit_no_usernames :: Int
+exit_no_usernames = 1