@@ -112,6 +112,8 @@ multiLineComment = try (string "{-" *> (string "-}") *> pure ())
112112 where inCommentChars :: MonadicParsing m => m ()
113113 inCommentChars = try (string "-}" *> pure ())
114114 <|> try (multiLineComment *> inCommentChars)
115+ <|> try (docComment '|' *> inCommentChars)
116+ <|> try (docComment '^' *> inCommentChars)
115117 <|> try (skipSome (noneOf startEnd) *> inCommentChars)
116118 <|> oneOf startEnd *> inCommentChars
117119 <?> "end of comment"