X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FURI.hs;h=9e7c7d944963a0a52b51b2b6b48aeb48ef57373d;hp=5e61eb6272ad588a09105083bf0e08214db0d7ca;hb=abd072d7a4b825cdfc7aaa49ef3c7897ffad3bf2;hpb=125e45349600d9146a6199f51df06fa82871b74a

diff --git a/src/LWN/URI.hs b/src/LWN/URI.hs
index 5e61eb6..9e7c7d9 100644
--- a/src/LWN/URI.hs
+++ b/src/LWN/URI.hs
@@ -112,7 +112,7 @@ filename url =
       let reverse_components = reverse components in
       case reverse_components of
         []     -> Nothing
-        (x:xs) -> Just x
+        (x:_) -> Just x
   where
     parse_result = parseURIReference url
 
@@ -144,7 +144,13 @@ make_absolute_url relative_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]