From f81e236ab90102d8afd6d6080131b77d59e38348 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Thu, 2 Sep 2010 12:57:09 -0400 Subject: [PATCH] Fix four compiler warnings. --- src/Main.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 2.43.2