Fix four compiler warnings.

[hath.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index eeee9f6b6fe07f4ae40b580e093c818042b253c9..6fa7da9203645e193d177de6a97ffed87a7c7f97 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -130,10 +130,19 @@ main = do
         let regexes = map cidr_to_regex cidrs
         putStrLn $ alternate regexes
     Reduce -> do
-        mapM (putStrLn . show) (combine_all cidrs)
+        _ <- mapM (putStrLn . show) (combine_all cidrs)
         return ()
     Dupe -> do
-         mapM (putStrLn . show) dupes
+         _ <- mapM (putStrLn . show) dupes
          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