X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMain.hs;h=a3b1bfe4a811faad00f6e8503b58de540bd8703f;hb=6c671cd410b81257514e1be76ca3f252ea69ccdb;hp=2fdcfd0459c1b2c88ecd2980e6de90a4a709cd95;hpb=78e436a8b3548f41f6c9bfd1db1b318a010f1472;p=hath.git

diff --git a/src/Main.hs b/src/Main.hs
index 2fdcfd0..a3b1bfe 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,9 +1,10 @@
-import Data.List (intercalate, intersperse)
+import Data.List ((\\), intercalate, intersperse)
 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,10 @@ main = do
         let regexes = map cidr_to_regex cidrs
         putStrLn $ alternate regexes
     Reduce -> do
-        putStr input
+        mapM (putStrLn . show) (combine_all cidrs)
+        return ()
+    Dupe -> do
+         mapM (putStrLn . show) dupes
+         return ()
+         where
+           dupes = cidrs \\ (combine_all cidrs)