record Hostname : TypeMkHostname : String -> Maybe Bits16 -> Hostname.domain : Hostname -> Stringdomain : Hostname -> String.port : Hostname -> Maybe Bits16port : Hostname -> Maybe Bits16record URLCredential : TypeMkURLCredential : String -> Maybe String -> URLCredential.password : URLCredential -> Maybe String.username : URLCredential -> StringEq URLCredentialShow URLCredential.username : URLCredential -> Stringusername : URLCredential -> String.password : URLCredential -> Maybe Stringpassword : URLCredential -> Maybe Stringrecord URL : TypeMkURL : String -> Maybe URLCredential -> Hostname -> Path -> String -> URL.credential : URL -> Maybe URLCredential.extensions : URL -> String.host : URL -> Hostname.path : URL -> Path.protocol : URL -> StringShow URL.protocol : URL -> Stringprotocol : URL -> String.credential : URL -> Maybe URLCredentialcredential : URL -> Maybe URLCredential.host : URL -> Hostnamehost : URL -> Hostname.path : URL -> Pathpath : URL -> Path.extensions : URL -> Stringextensions : URL -> Stringparse_url : Parser URLurl_from_string : String -> Either String URLdata URLProof : AsList m -> TypeIsHTTPURL : URLProof ('h' :: Delay ('t' :: Delay ('t' :: Delay ('p' :: Delay (':' :: Delay ('/' :: Delay ('/' :: xs)))))))IsHTTPSURL : URLProof ('h' :: Delay ('t' :: Delay ('t' :: Delay ('p' :: Delay ('s' :: Delay (':' :: Delay ('/' :: Delay ('/' :: xs))))))))url' : (str : String) -> {auto 0 _ : URLProof (asList str)} -> URLadd : URL -> String -> URLparse_hostname : String -> Either String Hostnamehostname_string : Hostname -> Stringurl_port_number : URL -> Maybe Bits16