Обновить класс кейса из неполного JSON с помощью Argonaut или Circe

Мне нужно создать обновленный экземпляр из экземпляра класса case (с любыми необходимыми DecodeJsons, неявно производными), учитывая неполный json (некоторые поля отсутствуют). Как это можно сделать с помощью Аргонавта (желательно) или Цирцеи (если нужно)?

Пример:

case class Person(name:String, age:Int)
val person = Person("mr complete", 42)
val incompletePersonJson = """{"name":"mr updated"}"""
val updatedPerson = updateCaseClassFromIncompleteJson(person, incompletePersonJson)

println(updatedPerson)
//yields Person(mr updated, 42) 

Я почти уверен, что мне нужно разобрать json на json AST, затем преобразовать его в Shapeless LabelledGeneric, а затем каким-то образом использовать обновление Shapeless, чтобы обновить экземпляр класса case.

Изменить 2

После прочтения источника Shapeless я обнаружил, что могу сгенерировать свой собственный объект "Default". Мне удалось создать решение, которое требует наличия экземпляра класса case при разборе json. Я надеялся избежать этого и вместо этого предоставил экземпляр позже. В любом случае вот оно:

import shapeless._
import argonaut._
import ArgonautShapeless._
import shapeless.ops.hlist.Mapper

case class Person(name: String, age: Int)

object MkDefault {

  object toSome extends Poly1 {
    implicit def default[P] = at[P](Some(_))
  }

  def apply[P, L <: HList, D <: HList]
  (p: P)
  (implicit
   g: Generic.Aux[P, L],
   mpr: Mapper.Aux[toSome.type, L, D]
  ): Default.Aux[P, mpr.Out] =
    Default.mkDefault[P, D](mpr(g.to(p)))
}


object Testy extends App {
    implicit val defs0 = MkDefault(Person("new name? NO", 42))
    implicit def pd = DecodeJson.of[Person]
    val i = """{"name":"Old Name Kept"}"""
    val pp = Parse.decodeOption[Person](i).get
    println(pp)
}

Это дает Person(Old Name Kept,42).