@@ -277,6 +277,7 @@ eitherDecodeWith p to s =
277 IError path msg -> Left (path, msg)
277 IError path msg -> Left (path, msg)
278 L.Fail _ ctx msg -> Left ([], buildMsg ctx msg)
278 L.Fail _ ctx msg -> Left ([], buildMsg ctx msg)
280+ buildMsg :: [String] -> String -> String
280 buildMsg [] msg = msg
281 buildMsg [] msg = msg
281 buildMsg (expectation:_) msg =
282 buildMsg (expectation:_) msg =
282 msg ++ ". Expecting " ++ expectation
283 msg ++ ". Expecting " ++ expectation