let reverse_components = reverse components in
case reverse_components of
[] -> Nothing
- (x:xs) -> Just x
+ (x:_) -> Just x
where
parse_result = parseURIReference url
where
parse_result = parseURIReference relative_url
-
+-- | Like 'make_absolute_url', except returns its input instead of
+-- 'Nothing' if the absolution fails.
+try_make_absolute_url :: URL -> URL
+try_make_absolute_url url =
+ case make_absolute_url url of
+ Nothing -> url
+ Just abs_url -> abs_url
-- | A List of LWN URLs to use during testing.
lwn_urls :: [URL]