@@ -799,7 +799,7 @@ instance HttpMethod method => RequestComponent (Womb "method" method) where
801-- We use 'Url's which are correct by construction, see 'Url'. To build a
801-- We use 'Url's which are correct by construction, see 'Url'. To build a
802−-- 'Url' from a 'ByteString', use 'parseUrlHttp', 'parseUrlHttps' or
802+-- 'Url' from a 'ByteString', use 'parseUrlHttp', 'parseUrlHttps', or
803-- generic 'parseUrl'.
803-- generic 'parseUrl'.
805-- | Request's 'Url'. Start constructing your 'Url' with 'http' or 'https'
805-- | Request's 'Url'. Start constructing your 'Url' with 'http' or 'https'
@@ -886,11 +886,15 @@ parseUrlHttps url' = do
886 (host :| path, option) <- parseUrlHelper url
886 (host :| path, option) <- parseUrlHelper url
887 return (foldl (/:) (https host) path, option)
887 return (foldl (/:) (https host) path, option)
889−-- | 'parseUrlHttp' and 'parseUrlHttps' companion that can be used
889+-- | A more general URI parsing function that can be used when scheme is not
890−-- when scheme is not known beforehand.
890+-- known beforehand.
892−parseUrl :: ByteString -> Maybe (Either (Url 'Http, Option scheme) (Url 'Https, Option scheme))
896+ -> Maybe (Either (Url 'Http, Option scheme) (Url 'Https, Option scheme))
893−parseUrl url' = Left <$> parseUrlHttp url' <|> Right <$> parseUrlHttps url'
897+parseUrl url = Left <$> parseUrlHttp url <|> Right <$> parseUrlHttps url
895-- | Get host\/collection of path pieces and possibly query parameters
899-- | Get host\/collection of path pieces and possibly query parameters
896-- already converted to 'Option'. This function is not public.
900-- already converted to 'Option'. This function is not public.