X-Git-Url: http://gitweb.michael.orlitzky.com/?p=hath.git;a=blobdiff_plain;f=src%2FExitCodes.hs;h=62a561d3264114a59e68be9bfd1db81ed18658c8;hp=ef5d73f06a57398fd238bee92ed8a28f5ee46fd1;hb=a2fe46950a637e64fb5056fce091bf398b983a79;hpb=72645e4a98e9d14eac3220c00058efe2d8fae489 diff --git a/src/ExitCodes.hs b/src/ExitCodes.hs index ef5d73f..62a561d 100644 --- a/src/ExitCodes.hs +++ b/src/ExitCodes.hs @@ -1,14 +1,8 @@ -- | Some exit codes, used in the ExitFailure constructor. module ExitCodes ( - exit_args_parse_failed, - exit_invalid_cidr - ) + exit_invalid_cidr ) 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