diff --git a/src/Language/Markdown/Syntax.hs b/src/Language/Markdown/Syntax.hs index b44018463..f45cc9737 100644 --- a/src/Language/Markdown/Syntax.hs +++ b/src/Language/Markdown/Syntax.hs @@ -38,9 +38,11 @@ type Error = Assignment.Error Grammar.Grammar type Term = Term.Term (Union Syntax) (Record Location) type Assignment = HasCallStack => Assignment.Assignment (Cofree [] (Record (CMark.NodeType ': Location))) Grammar.Grammar Term + assignment :: Assignment assignment = makeTerm <$> symbol Grammar.Document <*> children (Markup.Document <$> many blockElement) + -- Block elements blockElement :: Assignment