Added the "diff" mode of operation.

[hath.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index eeee9f6b6fe07f4ae40b580e093c818042b253c9..25413cec9fdf024632911ac8e9a1dd169da83753 100644 (file)
--- 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