Fix four compiler warnings.

[hath.git] / src / Main.hs

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