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')