@@ -127,7 +127,7 @@ parserCatchErrorProp :: [String] -> String -> Property
127127parserCatchErrorProp path msg =
128128 result === Success ([I.Key "outer", I.Key "inner"] ++ jsonPath, msg)
129129 where
130− parser = parserCatchError outer (\p err -> pure (p, err))
130+ parser = parserCatchError outer (curry pure)
131131
132132 outer = inner I.<?> I.Key "outer"
133133 inner = parserThrowError jsonPath msg I.<?> I.Key "inner"