Wrote more

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

diff --git a/Rakka/Wiki/Interpreter.hs b/Rakka/Wiki/Interpreter.hs
index 2a830b36de093415a7a74ce84d68ab24de859d1a..ad951f80a668beabf59cfea1f8f2d9796a763407 100644 (file)
--- a/Rakka/Wiki/Interpreter.hs
+++ b/Rakka/Wiki/Interpreter.hs
@@ -26,10 +26,12 @@ data Interpreter
 
 data InterpreterContext
     = InterpreterContext {
-        ctxPageName :: !PageName
-      , ctxTree     :: !WikiPage
-      , ctxStorage  :: !Storage
-      , ctxSysConf  :: !SystemConfig
+        ctxPageName   :: !PageName
+      , ctxMainPage   :: !(Maybe Page)
+      , ctxMainTree   :: !(Maybe WikiPage)
+      , ctxTargetTree :: !WikiPage
+      , ctxStorage    :: !Storage
+      , ctxSysConf    :: !SystemConfig
       }