X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FURI.hs;h=7a0a41f026a893881d90b546743e6624ede117c7;hp=f20c294a3b21fbd3809c18e417669d6e1911244c;hb=HEAD;hpb=3903bd0cecc36d39b444d8cc1ab94b7df0ec1d36

diff --git a/src/LWN/URI.hs b/src/LWN/URI.hs
index f20c294..7a0a41f 100644
--- a/src/LWN/URI.hs
+++ b/src/LWN/URI.hs
@@ -149,7 +149,7 @@ filename url =
 
 
 
-make_absolute_uri :: URI -> Maybe URI
+make_absolute_uri :: URI -> URI
 make_absolute_uri relative_uri =
   relativeTo relative_uri base_uri
   where
@@ -168,10 +168,7 @@ 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
+      Just $ show $ make_absolute_uri relative_uri
   where
     parse_result = parseURIReference relative_url