X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FURI.hs;h=d9076c419ed594494b2359c4d9400aa65c216fed;hp=3a21413dbf3feab89967ada01da9e13c9bb61531;hb=8202cb1437ece6be41677c0bbdae4713041199ac;hpb=e9151ade502fa997be41b6e37fb9841cacd0f528

diff --git a/src/LWN/URI.hs b/src/LWN/URI.hs
index 3a21413..d9076c4 100644
--- a/src/LWN/URI.hs
+++ b/src/LWN/URI.hs
@@ -54,15 +54,16 @@ make_https url =
     parse_result = parseURIReference url
 
 
-
 add_trailing_slash :: URL -> URL
 add_trailing_slash url =
   case parse_result of
     Nothing -> url -- Shrug?
     Just uri ->
       let old_path = uriPath uri in
-        if isSuffixOf "/" old_path then
-          url -- It already had a trailing slash
+        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 
         else
           show $ uri { uriPath = old_path ++ "/" }
   where