-
-
-pureInlineInterp :: String
- -> (InlineCommand -> Maybe Page -> InlineElement)
- -> Interpreter
-pureInlineInterp name f
- = InlineCommandInterpreter name $ \ cmd page _ _ -> return $ f cmd page
-
-
-pureBlockInterp :: String
- -> (BlockCommand -> Maybe Page -> BlockElement)
- -> Interpreter
-pureBlockInterp name f
- = BlockCommandInterpreter name $ \ cmd page _ _ -> return $ f cmd page