+-- Bug here, doesn't work on unicode paths!
filename :: URL -> Maybe String
filename url =
case parse_result of
-make_absolute_uri :: URI -> Maybe URI
+make_absolute_uri :: URI -> URI
make_absolute_uri relative_uri =
relativeTo relative_uri base_uri
where
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