splitHostAndPort :: String -> Maybe (String, Int)
splitHostAndPort hostport = case Split.splitOn ":" hostport of
                                [host,port] -> Just (host, read port :: Int)
                                _ -> Nothing
splitHostAndPort :: String -> Maybe (String, Int)
splitHostAndPort hostport = case Split.splitOn ":" hostport of
                                [host,port] -> Just (host, read port :: Int)
                                _ -> Nothing
splitHostAndPort hostport = case Split.splitOn ":" hostport of
                                [host,port] -> Just (host, read port :: Int)
                                _ -> Nothing