Replace cidr_from_string with a Read instance.

[hath.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index 5b034ba5119bf336721c334a3c1fe69f1518fd83..f567400c1ac4080905b9a31700051bf91cb81d82 100644 (file)
--- 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."