X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;ds=sidebyside;f=src%2FMain.hs;h=f567400c1ac4080905b9a31700051bf91cb81d82;hb=a5dfa1fd4dde2d79f42c606a56b4aea303d273e8;hp=5b034ba5119bf336721c334a3c1fe69f1518fd83;hpb=c8cda71c4a73a4995669c0aaa9dce904bd2dcbd6;p=hath.git

diff --git a/src/Main.hs b/src/Main.hs
index 5b034ba..f567400 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -11,10 +11,10 @@ import Data.Maybe (catMaybes, isNothing)
 import Data.String.Utils (splitWs)
 import System.Exit (ExitCode(..), exitSuccess, exitWith)
 import System.IO (stderr, hPutStrLn)
+import Text.Read (readMaybe)
 
 import Cidr (
   Cidr(..),
-  cidr_from_string,
   combine_all,
   enumerate,
   max_octet1,
@@ -115,7 +115,7 @@ main = do
   input <- inputfunc
 
   let cidr_strings = splitWs input
-  let cidrs = map cidr_from_string cidr_strings
+  let cidrs = map readMaybe cidr_strings
 
   when (any isNothing cidrs) $ do
     putStrLn "Error: not valid CIDR notation."