a[list_] := Replace[list, a : {__Rule} -> <|a|>, {0, \[Infinity]}]
categoryMembers[title_] :=
Module[{url =
"http://en.wikipedia.org/w/api.php?action=query&list=\
categorymembers&format=json&cmlimit=500&cmtitle=Category:" <>
URLEncode@title},
Join @@ NestWhileList[
a@Import[
url <> "&cmcontinue=" <> #[["query-continue",
"categorymembers", "cmcontinue"]], "JSON"] &,
a@Import[url, "JSON"], KeyExistsQ@"query-continue"][[All,
"query", "categorymembers", All, "title"]]]