module MediaWiki.API.Action.ExpandTemplates.Import where
import MediaWiki.API.Utils
import MediaWiki.API.Action.ExpandTemplates
import Text.XML.Light.Types
import Text.XML.Light.Proc ( strContent )
import Control.Monad
import Data.Maybe
stringXml :: String -> Either (String,[String]) ExpandTemplatesResponse
stringXml s = parseDoc xml s
xml :: Element -> Maybe ExpandTemplatesResponse
xml e = do
guard (elName e == nsName "api")
let es1 = children e
p <- pNode "expandtemplates" es1
let xm = fmap strContent $ pNode "parsetree" es1
return emptyExpandTemplatesResponse
{ etExpandedText = strContent p
, etExpandedXml = xm
}