From fcf1b972e8c403502bb772ad799604fd3265cfa2 Mon Sep 17 00:00:00 2001 From: mrkkrp Date: Sat, 8 Aug 2015 15:53:40 +0600 Subject: [PATCH] =?UTF-8?q?a=20minor=20correction=20in=20doc-string=20of?= =?UTF-8?q?=20=E2=80=98setErrorMessage=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Text/Megaparsec/Error.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Text/Megaparsec/Error.hs b/Text/Megaparsec/Error.hs index ae3177e..456b922 100644 --- a/Text/Megaparsec/Error.hs +++ b/Text/Megaparsec/Error.hs @@ -139,8 +139,8 @@ addErrorMessage m (ParseError pos ms) = ParseError pos (pre ++ [m] ++ post) post = filter (> m) ms -- | @setErrorMessage m err@ returns @err@ with message @m@ added. This --- function also deletes all already existing error messages that were --- created with the same constructor of @m@. +-- function also deletes all existing error messages that were created with +-- the same constructor as @m@. setErrorMessage :: Message -> ParseError -> ParseError setErrorMessage m (ParseError pos ms) = ParseError pos (m:xs)