import Control.Monad (when)
import Data.List ((\\), intercalate)
import Data.Maybe (catMaybes, isNothing)
-import Data.String.Utils (splitWs)
import System.Exit (ExitCode( ExitFailure ), exitWith)
import System.IO (stderr, hPutStrLn)
import Text.Read (readMaybe)
min_octet2,
min_octet3,
min_octet4 )
-import CommandLine (Args(..), get_args)
+import CommandLine(
+ Args( Regexed, Reduced, Duped, Diffed, Listed, barriers ),
+ get_args )
import ExitCodes ( exit_invalid_cidr )
import Octet ()
-- This reads stdin.
input <- getContents
- let cidr_strings = splitWs input
+ let cidr_strings = words input
let cidrs = map readMaybe cidr_strings :: [Maybe Cidr]
when (any isNothing cidrs) $ do