fix design problem

[Rakka.git] / Rakka / Wiki / Interpreter.hs

diff --git a/Rakka/Wiki/Interpreter.hs b/Rakka/Wiki/Interpreter.hs
index ad951f80a668beabf59cfea1f8f2d9796a763407..32e1a3aa0e1760516d67e533b2fdb59a1942df43 100644 (file)
--- 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
@@ -26,10 +27,10 @@ data Interpreter
 
 data InterpreterContext
     = InterpreterContext {
-        ctxPageName   :: !PageName
-      , ctxMainPage   :: !(Maybe Page)
-      , ctxMainTree   :: !(Maybe WikiPage)
-      , ctxTargetTree :: !WikiPage
+        ctxPageName   :: !(Maybe PageName)
+      , ctxMainPage   :: !(Maybe XmlTree)
+      , ctxMainWiki   :: !(Maybe WikiPage)
+      , ctxTargetWiki :: !WikiPage
       , ctxStorage    :: !Storage
       , ctxSysConf    :: !SystemConfig
       }