@@ -958,9 +958,9 @@ contextType = prependContext
958958-- | "contents", where "tag" i-- |s associated to one of ["Foo", "Bar"],
959959-- | The parser returned error was: could not find key "tag"
960960contextTag :: Text -> [String] -> Parser a -> Parser a
961−contextTag tagKey cnames = modifyFailure (\_ ->
961+contextTag tagKey cnames = modifyFailure (const
962962 ("expected Object with key \"" ++ unpack tagKey ++ "\"" ++
963− " associated to one of " ++ show cnames ++ "."))
963+ " associated to one of " ++ show cnames ++ "."))
964964
965965-- | Add the name of the constructor being parsed to a parser's error messages.
966966contextCons :: ConName -> TypeName -> Parser a -> Parser a