-module Main
+module Main (main)
where
import Control.Monad (when)
import Data.List ((\\), intercalate)
+import qualified Data.List as List (sort)
import Data.Maybe (catMaybes, isNothing)
import System.Exit (ExitCode( ExitFailure ), exitWith)
import System.IO (stderr, hPutStrLn)
min_octet2,
min_octet3,
min_octet4 )
+import qualified Cidr ( normalize )
import CommandLine(
- Args( Regexed, Reduced, Duped, Diffed, Listed, barriers ),
+ Args( Regexed, Reduced, Duped, Diffed, Listed, barriers, normalize, sort ),
get_args )
import ExitCodes ( exit_invalid_cidr )
import Octet ()
let cidrs' = combine_all valid_cidrs
let regexes = map (cidr_to_regex (barriers args)) cidrs'
putStrLn $ alternate regexes
- Reduced{} ->
- mapM_ print (combine_all valid_cidrs)
+ Reduced{} -> do
+ -- Pre-normalize all CIDRs if the user asked for it.
+ let nrml_func = if (normalize args) then Cidr.normalize else id
+ let sort_func = if (sort args) then List.sort else id :: [Cidr] -> [Cidr]
+ mapM_ (print . nrml_func) (sort_func $ combine_all valid_cidrs)
Duped{} ->
mapM_ print dupes
where