From acd3459148488f6dc594f6ecb7d5a5f299b82edc Mon Sep 17 00:00:00 2001 From: mrkkrp Date: Sat, 24 Sep 2016 22:10:57 +0300 Subject: [PATCH] =?UTF-8?q?A=20minor=20improvement=20to=20docs=20of=20?= =?UTF-8?q?=E2=80=98shouldFailWith=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Test/Hspec/Megaparsec.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Test/Hspec/Megaparsec.hs b/Test/Hspec/Megaparsec.hs index 5a4bced..a3e86ad 100644 --- a/Test/Hspec/Megaparsec.hs +++ b/Test/Hspec/Megaparsec.hs @@ -122,9 +122,8 @@ p `shouldSucceedOn` s = shouldSucceed (p s) -- Testing of error messages -- | Create an expectation that parser should fail producing certain --- 'ParseError'. Use functions from "Text.Megaparsec.Error" to construct --- parse errors to check against. See "Text.Megaparsec.Pos" for functions to --- construct textual positions. +-- 'ParseError'. Use the 'err' function from this module to construct a +-- 'ParseError' to compare with. -- -- > parse (char 'x') "" "b" `shouldFailWith` err posI (utok 'b' <> etok 'x')