From bacb523b7f37249f44f57c5e75a091c4569ffe01 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 7 Oct 2019 14:40:09 -0400 Subject: [PATCH] Use the AST synonym in the type of MarkdownParser. --- src/Parsing/Parser.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Parsing/Parser.hs b/src/Parsing/Parser.hs index d7d8b0833..e1dce746f 100644 --- a/src/Parsing/Parser.hs +++ b/src/Parsing/Parser.hs @@ -110,7 +110,7 @@ data Parser term where -> Assignment ast grammar (Term (Sum fs) Loc) -- ^ An assignment from AST onto 'Term's. -> Parser (Term (Sum fs) Loc) -- ^ A parser producing 'Term's. -- | A parser for 'Markdown' using cmark. - MarkdownParser :: Parser (Term (TermF [] CMarkGFM.NodeType) (Node Markdown.Grammar)) + MarkdownParser :: Parser (AST (TermF [] CMarkGFM.NodeType) Markdown.Grammar) goParser :: Parser Go.Term