From: Michael Orlitzky Date: Sat, 8 May 2010 16:46:45 +0000 (-0400) Subject: Updated the Reduce action to call combine_all on the Cidr list. X-Git-Tag: 0.0.1~67 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=76b555ca0ff80d36b481d1b86900bf1683d57081;p=hath.git Updated the Reduce action to call combine_all on the Cidr list. --- diff --git a/src/Main.hs b/src/Main.hs index 2fdcfd0..7017a19 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -3,7 +3,8 @@ import System.Exit (ExitCode(..), exitWith) import System.IO (stderr, hPutStrLn) import Cidr (Cidr(..), - cidr_from_string) + cidr_from_string, + combine_all) import CommandLine (help_set, help_text, @@ -122,4 +123,5 @@ main = do let regexes = map cidr_to_regex cidrs putStrLn $ alternate regexes Reduce -> do - putStr input + mapM (putStrLn . show) (combine_all cidrs) + return ()