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

diff --git a/src/Main.hs b/src/Main.hs
index 25413ce..6fa7da9 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -130,16 +130,16 @@ 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
+         _ <- mapM putStrLn deletions
+         _ <- mapM putStrLn additions
          return ()
          where
            dupes = cidrs \\ (combine_all cidrs)