+{-# LANGUAGE DoAndIfThenElse #-}
+
module Main ( main )
where
import Data.Monoid ( (<>) )
import Text.Parsec ( ParseError, parse )
import System.Console.CmdArgs ( def )
-import System.Exit ( exitWith, ExitCode (ExitFailure) )
+import System.Exit ( exitSuccess, exitWith, ExitCode (ExitFailure) )
import System.IO ( hPutStrLn, stderr )
import CommandLine ( get_args )
import Configuration ( Configuration(..), merge_optional )
import ExitCodes (
+ exit_host_blacklisted,
exit_no_hosts,
exit_no_lists,
exit_unparseable_host,
Right hs -> do
listings <- concatMapM (lookup_rbl ls) hs
mapM_ (putStrLn . listing_message) listings
+ if null listings
+ then exitSuccess
+ else exitWith (ExitFailure exit_host_blacklisted)