json_schema.scala

sealed abstract class JsonSchema {
  def asJson: JsValue
}
object JsonSchema {
  final case class Single(description: String) extends JsonSchema { def asJson = JsString(description) }
  final case class Optional(field: JsonSchema) extends JsonSchema { def asJson = field.asJson }
  final case class Array(kind: JsonSchema) extends JsonSchema { def asJson = Json.arr(kind.asJson) }
  final case class Object(fields: Seq[(String, JsonSchema)]) extends JsonSchema {
    def asJson = JsObject(fields.map {
      case (name, JsonSchema.Optional(schema)) => (name + "?") -> schema.asJson
      case (name, schema) => name -> schema.asJson
    })
  }
}