import System.IO (stderr, hPutStrLn)
import Cidr (Cidr(..),
- cidr_from_string)
+ cidr_from_string,
+ combine_all)
import CommandLine (help_set,
help_text,
let regexes = map cidr_to_regex cidrs
putStrLn $ alternate regexes
Reduce -> do
- putStr input
+ mapM (putStrLn . show) (combine_all cidrs)
+ return ()