+
+make_absolute_uri :: URI -> Maybe URI
+make_absolute_uri relative_uri =
+ relativeTo relative_uri base_uri
+ where
+ base_auth = URIAuth { uriUserInfo = "",
+ uriRegName = "lwn.net",
+ uriPort = "" }
+ base_uri = URI { uriScheme = "https:",
+ uriAuthority = Just base_auth,
+ uriPath = "/",
+ uriQuery = "",
+ uriFragment = "" }
+
+
+make_absolute_url :: URL -> Maybe URL
+make_absolute_url relative_url =
+ case parse_result of
+ Nothing -> Nothing
+ Just relative_uri ->
+ let abs_result = make_absolute_uri relative_uri in
+ case abs_result of
+ Nothing -> Nothing
+ Just abs_uri -> Just $ show abs_uri
+ where
+ parse_result = parseURIReference relative_url
+
+
+