Only fetch login cookies once.

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

diff --git a/src/LWN/Article.hs b/src/LWN/Article.hs
index ac3d456da8aae0ef43339e66c9bd62d5e92cff44..47e36519858209235829485c6cf099309d1d7963 100644 (file)
--- 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