X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FWiki%2FInterpreter.hs;h=9c40816e47519aedf6ac27a7731f7e8b20dee4f6;hb=656fdb2772ab4de5cd083cbe9e7c1610cccef73b;hp=1bf10ccc195ee495777aec363471bf06747a8d03;hpb=3c5211253dc61c31196a47486c538b64c32d8c5e;p=Rakka.git diff --git a/Rakka/Wiki/Interpreter.hs b/Rakka/Wiki/Interpreter.hs index 1bf10cc..9c40816 100644 --- a/Rakka/Wiki/Interpreter.hs +++ b/Rakka/Wiki/Interpreter.hs @@ -11,6 +11,7 @@ import Rakka.Page import Rakka.Storage import Rakka.SystemConfig import Rakka.Wiki +import Text.XML.HXT.DOM.TypeDefs data Interpreter @@ -27,8 +28,9 @@ data Interpreter data InterpreterContext = InterpreterContext { ctxPageName :: !PageName - , ctxMainTree :: !(Maybe WikiPage) - , ctxTargetTree :: !WikiPage + , ctxMainPage :: !(Maybe XmlTree) + , ctxMainWiki :: !(Maybe WikiPage) + , ctxTargetWiki :: !WikiPage , ctxStorage :: !Storage , ctxSysConf :: !SystemConfig }