data Interpreter
= InlineCommandInterpreter {
- iciName :: String
- , iciInterpret :: InterpreterContext -> InlineCommand -> IO InlineElement
+ iciName :: !String
+ , iciInterpret :: !(InterpreterContext -> InlineCommand -> IO InlineElement)
}
| BlockCommandInterpreter {
- bciName :: String
- , bciInterpret :: InterpreterContext -> BlockCommand -> IO BlockElement
+ bciName :: !String
+ , bciInterpret :: !(InterpreterContext -> BlockCommand -> IO BlockElement)
}
data InterpreterContext
= InterpreterContext {
- ctxPage :: Maybe Page
- , ctxTree :: WikiPage
- , ctxStorage :: Storage
- , ctxSysConf :: SystemConfig
+ ctxPageName :: !PageName
+ , ctxTree :: !WikiPage
+ , ctxStorage :: !Storage
+ , ctxSysConf :: !SystemConfig
}