X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMain.hs;h=25413cec9fdf024632911ac8e9a1dd169da83753;hb=e2cb918f1808f7f54cc742418050d49b424848c5;hp=eeee9f6b6fe07f4ae40b580e093c818042b253c9;hpb=75038b45b9c379d8313511e58c3c0fe680810883;p=hath.git

diff --git a/src/Main.hs b/src/Main.hs
index eeee9f6..25413ce 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -137,3 +137,12 @@ main = do
          return ()
          where
            dupes = cidrs \\ (combine_all cidrs)
+    Diff -> do
+         mapM putStrLn deletions
+         mapM putStrLn additions
+         return ()
+         where
+           dupes = cidrs \\ (combine_all cidrs)
+           deletions = map (\s -> "-" ++ (show s)) dupes
+           newcidrs = (combine_all cidrs) \\ cidrs
+           additions = map (\s -> "+" ++ (show s)) newcidrs