X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FURI.hs;fp=src%2FLWN%2FURI.hs;h=f20c294a3b21fbd3809c18e417669d6e1911244c;hp=1601c37111e80bd9c0c0641de730baf8f4292641;hb=c07b67fc6fafd67364686ee51f844e0ac5b790d6;hpb=9fa662fa8ea24478949099d465efb8eb6599e745 diff --git a/src/LWN/URI.hs b/src/LWN/URI.hs index 1601c37..f20c294 100644 --- a/src/LWN/URI.hs +++ b/src/LWN/URI.hs @@ -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