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