From: Michael Orlitzky <michael@orlitzky.com>
Date: Thu, 2 Sep 2010 16:57:09 +0000 (-0400)
Subject: Fix four compiler warnings.
X-Git-Tag: 0.0.1~17
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=f81e236ab90102d8afd6d6080131b77d59e38348;p=hath.git

Fix four compiler warnings.
---

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)