Defining a Schema.TaggedClass for Parsing API Responses Without Pre-existing Tags

const overwriteTag = <Tag extends LiteralValue>(tag: Tag) =>
  S.optionalToRequired(S.Unknown, S.Literal(tag), {
    decode: () => tag,
    encode: () => Option.none()
  }).pipe(S.withConstructorDefault(() => tag))

const ErrorBody = S.Struct({
  _tag: overwriteTag("ErrorBody"),
  ErrorCode: S.Number.pipe(S.nonNegative(), S.int()),
  Message: S.String
})

             └─ (ManualJournal (Encoded side) <-> ManualJournal)
                └─ Encoded side transformation failure
                   └─ ManualJournal (Encoded side)
                      └─ Encoded side transformation failure
                         └─ Struct (Encoded side)
                            └─ ["_tag"]
                               └─ is missing

export class ManualJournal extends S.Class<ManualJournal>("ManualJournal")({
  _tag: S.Literal("ManualJournal").pipe(
    S.optional,
    S.withDefaults({
      constructor: () => "ManualJournal",
      decoding: () => "ManualJournal"
    })
  ),