X-Git-Url: http://gitweb.michael.orlitzky.com/?p=hath.git;a=blobdiff_plain;f=src%2FMain.hs;h=d66b6009c5187b643b0ea12e588cda26873eb39e;hp=5b75533863c11b515f7f104df7b09948065a9e59;hb=13b975060857b8acd64b7231074dc4a0c0a2915a;hpb=006f90418a578308104b75362f0b595466900eed

diff --git a/src/Main.hs b/src/Main.hs
index 5b75533..d66b600 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -102,7 +102,7 @@ main = do
   input <- getContents
 
   let cidr_strings = splitWs input
-  let cidrs = map readMaybe cidr_strings
+  let cidrs = map readMaybe cidr_strings :: [Maybe Cidr]
 
   when (any isNothing cidrs) $ do
     hPutStrLn stderr "ERROR: not valid CIDR notation:"