val json = buildJsonObject {
    put("some", buildJsonArray {
        add("this")
        add("that")
    })
}

val path = JsonPath["some2"].array

println(path.set(json, listOf(JsonPrimitive("one"), JsonPrimitive("two"))))
println(path.modify(json) { listOf(JsonPrimitive("one"), JsonPrimitive("two")) })

{"some":["this","that"]}
{"some":["this","that"]}

val prism2: Prism<JsonElement, List<FooValueClass>?> = Prism(
    getOption = { orig ->
            if (orig !is JsonArray) return@Prism none()
        
            orig.mapNotNull { it.jsonPrimitive.contentOrNull?.let { value -> FooValueClass(value) } }
                .takeIf { orig.size == it.size }?.some() ?: none()
    },
    reverseGet = {
        if (it == null) return@Prism JsonNull
        
        JsonArray(it.map { value -> JsonPrimitive(value.value) }) 
    }
)

// This doesn't work... there's no such compose function...
val setter = JsonPath["some2"] compose prism2

val lens1 = Lens<List<JsonElement>, List<JsonElement>, List<PackageName>?, List<PackageName>?>(
    get = { orig: List<JsonElement> ->
        orig.mapNotNull {
            it.jsonPrimitive.contentOrNull?.let { value -> PackageName(value) }
        }
        .takeIf { orig.size == it.size } },
    set = { orig: List<JsonElement>, curr: List<PackageName>? ->
        curr?.map { value -> JsonPrimitive(value.value) } as List<JsonElement>
    }
)

val setter = JsonPath["some2"].array compose lens1

Optional<JsonElement, JsonElement>

at()

val lens2 = Lens<Option<JsonElement>, Option<JsonElement>, Option<List<PackageName>>, Option<List<PackageName>>>(
    get = { orig1: Option<JsonElement> ->
        orig1.flatMap { orig ->
            if (orig !is JsonArray) return@Lens none()
            orig.mapNotNull {
                it.jsonPrimitive.contentOrNull?.let { value -> PackageName(value) }
            }
                .takeIf { orig.size == it.size }?.some() ?: none()
        }
         
    },
    set = { orig: Option<JsonElement>, curr: Option<List<PackageName>> ->
        curr.flatMap { JsonArray(it.map { value -> JsonPrimitive(value.value) }).some() }
    }
)

val setter = <http://JsonPath.at|JsonPath.at>("some2") compose lens2

JsonPath["..."]

<http://JsonPath.at|JsonPath.at>("...")

At

Lens<S, Option<A>>

select/[]

Optional<S, A>