1 module Rakka.Wiki.Interpreter.Base
7 import Rakka.Wiki.Interpreter
8 import Rakka.Wiki.Interpreter.Base.Image
11 baseInterpreters :: [Interpreter]
12 baseInterpreters = [ lineBreakInterp
20 lineBreakInterp :: Interpreter
21 lineBreakInterp = InlineCommandInterpreter {
24 = \ _ (InlineCommand _ attrs _) -> return $ LineBreak attrs
28 spanInterp :: Interpreter
29 spanInterp = InlineCommandInterpreter {
32 = \ _ (InlineCommand _ attrs contents) -> return $ Span attrs contents
36 divInterp :: Interpreter
37 divInterp = BlockCommandInterpreter {
40 = \ _ (BlockCommand _ attrs contents) -> return $ Div attrs contents