From: Michael Orlitzky <michael@orlitzky.com>
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: http://gitweb.michael.orlitzky.com/?p=hath.git;a=commitdiff_plain;h=76b555ca0ff80d36b481d1b86900bf1683d57081

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 ()