X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FArticle.hs;h=47e36519858209235829485c6cf099309d1d7963;hp=ac3d456da8aae0ef43339e66c9bd62d5e92cff44;hb=fc0052e451aa03675ebd9a128dfa46573b9357d7;hpb=2953924e2016393a1ffb9e2e82b4c90c8c57dfd3

diff --git a/src/LWN/Article.hs b/src/LWN/Article.hs
index ac3d456..47e3651 100644
--- a/src/LWN/Article.hs
+++ b/src/LWN/Article.hs
@@ -98,12 +98,14 @@ real_article_path path = do
   where
     abs_current = try_make_absolute_url ("/" ++ path)
     abs_article = try_make_absolute_url ("Articles/" ++ path)
+    abs_full_article = try_make_absolute_url path
 
     check_cases :: String
     check_cases
       | is_lwn_url path = make_https path
       | isPrefixOf "current" path = abs_current
       | path =~ "^[0-9]+$" = abs_article
+      | path =~ "^/Articles/[0-9]+/?$" = abs_full_article
       | otherwise = path -- Give up