From 76b555ca0ff80d36b481d1b86900bf1683d57081 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Sat, 8 May 2010 12:46:45 -0400 Subject: [PATCH] Updated the Reduce action to call combine_all on the Cidr list. --- src/Main.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 () -- 2.43.2