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,
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."