1 module Rakka.Wiki.Interpreter.Base
6 import Rakka.Wiki.Interpreter
10 baseInterpreters :: [Interpreter]
11 baseInterpreters = [ lineBreakInterp
17 lineBreakInterp :: Interpreter
18 lineBreakInterp = pureInlineInterp "br" interpret
20 interpret (InlineCommand _ attrs _) _ = LineBreak attrs
23 spanInterp :: Interpreter
24 spanInterp = pureInlineInterp "span" interpret
26 interpret (InlineCommand _ attrs contents) _ = Span attrs contents
29 divInterp :: Interpreter
30 divInterp = pureBlockInterp "div" interpret
32 interpret (BlockCommand _ attrs contents) _ = Div attrs contents