mapped-nominal-leaf-language.keiro

language keiro-dsl 5
context mapped-nominal-leaf-language

id TemplateId prefix=template

mapped structural record TemplateState {
  haskell package=example-core module=Example.Domain type=TemplateState
  binding = "Example.Bindings.templateStateBinding"
  binding-version = "1"
  canonical-type = "example.TemplateState.v1"
  fixtures = "Example.Bindings.templateStateFixtures"
  wire object constructor=TemplateState unknown-fields=reject {
    templateId as "templateId" : TemplateId required
  }
}

aggregate Template
  regs
  states Empty Stored!
  command RecordTemplate { state:TemplateState }
  event TemplateRecorded = fields(RecordTemplate)
  Empty -- RecordTemplate -->
    emit TemplateRecorded
    goto Stored
  wire kind=ctorName fields=camelCase schemaVersion=1