moduleMediaWiki.API.Query.AllPages.ImportwhereimportMediaWiki.API.TypesimportMediaWiki.API.UtilsimportMediaWiki.API.Query.AllPagesimportText.XML.Light.TypesimportText.XML.Light.Proc(strContent)importControl.MonadimportData.MaybestringXml::String->Either(String,[{-Error msg-}String])AllPagesResponsestringXmls=parseDocxmlsxml::Element->MaybeAllPagesResponsexmle=doguard(elNamee==nsName"api")letes1=childrenep<-pNode"query"es1letes=childrenpps<-fmap(mapMaybexmlPage)(fmapchildren$pNode"pages"es)letcont=pNode"query-continue"es1>>=xmlContinue"allpages""gapfrom"returnemptyAllPagesResponse{apLinks=ps,apContinue=cont}xmlPage::Element->MaybePageTitlexmlPagee=doguard(elNamee==nsName"page")letns=fromMaybe"0"$pAttr"ns"elettit=fromMaybe""$pAttr"title"eletpid=pAttr"pageid"e-- more to follow, I'm also seeing these with 1.13:lettou=pAttr"touched"eletlas=pAttr"lastrevid"eletviews=pAttr"counter"eletlen=pAttr"length"ereturnemptyPageTitle{pgNS=ns,pgTitle=tit,pgMbId=pid}