argonaut.io:ケースクラスの右/左にJSONプロパティの名前を変更する方法
質問
Argonautでは、ケースクラスのどちらかを含むインスタンスで、対応するJSONプロパティ名の名前を簡単に変更します。
たとえば、この定義を考えると: case class Foo(f: String)
case class Bar(b: String)
case class FooBar(e: Either[Foo, Bar])
implicit def FooCodecJson: CodecJson[Foo] = casecodec1(Foo.apply, Foo.unapply)("f")
implicit def BarCodecJson: CodecJson[Bar] = casecodec1(Bar.apply, Bar.unapply)("b")
implicit def FooBarCodecJson: CodecJson[FooBar] = casecodec1(FooBar.apply, FooBar.unapply)("e")
.
FooBar
のようなJSONへの変換FooBar(Right(Bar("hello"))).asJson.spaces4
には、次のようになります。
{
"e" : {
"Right" : {
"b" : "hello"
}
}
}
.
上記の出力にもっと意味のあるものに「正しい」と名前を変更する最も簡単な方法は何ですか?(私の実際のシナリオには多くのイサーが多くのケースクラスがありますので、可能な限り最も簡潔な方法を探しています。)
解決
これは合理的に簡単なアプローチです:
def renameFields(replacements: (JsonField, JsonField)*)(json: Json) =
json.withObject(obj =>
replacements.foldLeft(obj) {
case (acc, (before, after)) =>
acc(before).map(v => (acc - before) + (after, v)).getOrElse(acc)
}
)
def renamedEitherCodec[A, B](leftName: String, rightName: String)(implicit
ee: EncodeJson[Either[A, B]],
de: DecodeJson[Either[A, B]]
) = CodecJson[Either[A, B]](
e => renameFields("Left" -> leftName, "Right" -> rightName)(ee(e)),
c => de(c.withFocus(renameFields(leftName -> "Left", rightName -> "Right")))
)
.
、次に
val fooOrBar = namedEitherCodec[Foo, Bar]("Foo", "Bar")
implicit def FooBarCodecJson: CodecJson[FooBar] = casecodec1(
FooBar.apply, FooBar.unapply
)("e")(fooOrBar, fooOrBar)
.
fooOrBar
を暗黙的にすることもできますが、その方法でタイプクラスインスタンスをオーバーライドすることもできます。
所属していません StackOverflow