"Fix" the unicode URL bug.

[dead/lwn-epub.git] / src / LWN / URI.hs

diff --git a/src/LWN/URI.hs b/src/LWN/URI.hs
index d9076c419ed594494b2359c4d9400aa65c216fed..f20c294a3b21fbd3809c18e417669d6e1911244c 100644 (file)
--- a/src/LWN/URI.hs
+++ b/src/LWN/URI.hs
@@ -63,7 +63,7 @@ add_trailing_slash url =
         if (isSuffixOf "/" old_path) || (isSuffixOf "bigpage" old_path) then
           -- It already had a trailing slash, or it's a 'bigpage' URL.
           -- Trailing slashes after 'bigpage' don't work.
-          url 
+          url
         else
           show $ uri { uriPath = old_path ++ "/" }
   where
@@ -131,6 +131,7 @@ is_lwn_url s =
 
 
 
+-- Bug here, doesn't work on unicode paths!
 filename :: URL -> Maybe String
 filename url =
   case parse_result of
@@ -163,7 +164,7 @@ make_absolute_uri relative_uri =
 
 
 make_absolute_url :: URL -> Maybe URL
-make_absolute_url relative_url =    
+make_absolute_url relative_url =
   case parse_result of
     Nothing -> Nothing
     Just relative_uri ->