-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_octet4 )
import qualified Cidr ( normalize )
import CommandLine(
- Args( Regexed, Reduced, Duped, Diffed, Listed, barriers, normalize ),
+ Args( Regexed, Reduced, Duped, Diffed, Listed, barriers, normalize, sort ),
get_args )
import ExitCodes ( exit_invalid_cidr )
import Octet ()
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))
+ 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