fix design problem

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

diff --git a/Rakka/Wiki/Interpreter.hs b/Rakka/Wiki/Interpreter.hs
index 9c40816e47519aedf6ac27a7731f7e8b20dee4f6..32e1a3aa0e1760516d67e533b2fdb59a1942df43 100644 (file)
--- a/Rakka/Wiki/Interpreter.hs
+++ b/Rakka/Wiki/Interpreter.hs
@@ -27,7 +27,7 @@ data Interpreter
 
 data InterpreterContext
     = InterpreterContext {
-        ctxPageName   :: !PageName
+        ctxPageName   :: !(Maybe PageName)
       , ctxMainPage   :: !(Maybe XmlTree)
       , ctxMainWiki   :: !(Maybe WikiPage)
       , ctxTargetWiki :: !WikiPage