@@ -220,6 +220,8 @@ data MimeJsonPatchjson = MimeJsonPatchjson deriving (P.Typeable)
220220-- | @application/json-patch+json@
221221instance MimeType MimeJsonPatchjson where
222222 mimeType _ = Just $ P. fromString " application/json-patch+json"
223+ instance A. ToJSON a => MimeRender MimeJsonPatchjson a where mimeRender _ = A. encode
224+ instance A. FromJSON a => MimeUnrender MimeJsonPatchjson a where mimeUnrender _ = A. eitherDecode
223225-- instance MimeRender MimeJsonPatchjson T.Text where mimeRender _ = undefined
224226-- instance MimeUnrender MimeJsonPatchjson T.Text where mimeUnrender _ = undefined
225227
@@ -242,6 +244,8 @@ data MimeMergePatchjson = MimeMergePatchjson deriving (P.Typeable)
242244-- | @application/merge-patch+json@
243245instance MimeType MimeMergePatchjson where
244246 mimeType _ = Just $ P. fromString " application/merge-patch+json"
247+ instance A. ToJSON a => MimeRender MimeMergePatchjson a where mimeRender _ = A. encode
248+ instance A. FromJSON a => MimeUnrender MimeMergePatchjson a where mimeUnrender _ = A. eitherDecode
245249-- instance MimeRender MimeMergePatchjson T.Text where mimeRender _ = undefined
246250-- instance MimeUnrender MimeMergePatchjson T.Text where mimeUnrender _ = undefined
247251
@@ -252,6 +256,8 @@ data MimeStrategicMergePatchjson = MimeStrategicMergePatchjson deriving (P.Typea
252256-- | @application/strategic-merge-patch+json@
253257instance MimeType MimeStrategicMergePatchjson where
254258 mimeType _ = Just $ P. fromString " application/strategic-merge-patch+json"
259+ instance A. ToJSON a => MimeRender MimeStrategicMergePatchjson a where mimeRender _ = A. encode
260+ instance A. FromJSON a => MimeUnrender MimeStrategicMergePatchjson a where mimeUnrender _ = A. eitherDecode
255261-- instance MimeRender MimeStrategicMergePatchjson T.Text where mimeRender _ = undefined
256262-- instance MimeUnrender MimeStrategicMergePatchjson T.Text where mimeUnrender _ = undefined
257263
0 commit comments