@@ -827,7 +827,11 @@ prettyPrintMultipleErrorsWith level _ intro full (MultipleErrors es) = do
827827prettyPrintParseError :: P.ParseError -> Box.Box
828828prettyPrintParseError = (prettyPrintParseErrorMessages "or" "unknown parse error" "expecting" "unexpected" "end of input") . PE.errorMessages
829829
830−-- | Pretty print ParseError detail messages. Adapted from Text.Parsec.Error.showErrorMessages.
830+-- |
831+-- Pretty print ParseError detail messages.
832+--
833+-- Adapted from 'Text.Parsec.Error.showErrorMessages', see <https://github.com/aslatter/parsec/blob/v3.1.9/Text/Parsec/Error.hs#L173>.
834+--
831835prettyPrintParseErrorMessages :: String -> String -> String -> String -> String -> [Message] -> Box.Box
832836prettyPrintParseErrorMessages msgOr msgUnknown msgExpecting msgUnExpected msgEndOfInput msgs
833837 | null msgs = Box.text msgUnknown