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 ),
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
+ mapM_ print (combine_all (map nrml_func valid_cidrs))
Duped{} ->
mapM_ print dupes
where