Record before an experiment

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

diff --git a/Rakka/Wiki/Interpreter.hs b/Rakka/Wiki/Interpreter.hs
index 1bf10ccc195ee495777aec363471bf06747a8d03..ad951f80a668beabf59cfea1f8f2d9796a763407 100644 (file)
--- a/Rakka/Wiki/Interpreter.hs
+++ b/Rakka/Wiki/Interpreter.hs
@@ -27,6 +27,7 @@ data Interpreter
 data InterpreterContext
     = InterpreterContext {
         ctxPageName   :: !PageName
+      , ctxMainPage   :: !(Maybe Page)
       , ctxMainTree   :: !(Maybe WikiPage)
       , ctxTargetTree :: !WikiPage
       , ctxStorage    :: !Storage