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

diff --git a/src/Main.hs b/src/Main.hs
index 7017a19..a3b1bfe 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,4 +1,4 @@
-import Data.List (intercalate, intersperse)
+import Data.List ((\\), intercalate, intersperse)
 import System.Exit (ExitCode(..), exitWith)
 import System.IO (stderr, hPutStrLn)
 
@@ -125,3 +125,8 @@ main = do
     Reduce -> do
         mapM (putStrLn . show) (combine_all cidrs)
         return ()
+    Dupe -> do
+         mapM (putStrLn . show) dupes
+         return ()
+         where
+           dupes = cidrs \\ (combine_all cidrs)