ReadModel.hs

-- @generated by keiro-dsl 0.18.0.0 (language keiro-dsl 6) from readmodel label_lookup; do not edit.
module Generated.StructuralTextSets.LabelLookup.ReadModel
  ( labelLookupReadModel
  , labelLookupQualifiedTable
  ) where

import Generated.StructuralTextSets.LabelLookup.ReadModelTable (labelLookupQualifiedTable)
import Generated.StructuralTextSets.LabelLookup.QueryContract (LabelLookupQueryInput, LabelLookupQueryResult)
import StructuralTextSets.LabelLookup.ReadModelHoles (labelLookupQuery)
import Keiro.ReadModel (QueryCursorAuthority (..), ReadModel, ReadModelBlueprint (..), HeadScope (..), headWaitingReadModel)

labelLookupReadModel :: ReadModel LabelLookupQueryInput LabelLookupQueryResult
labelLookupReadModel =
  case headWaitingReadModel EntireVisibleLog labelLookupReadModelBlueprint of
    Left definitionError -> error ("keiro-dsl generated an invalid waiting read model: " <> show definitionError)
    Right model -> model

labelLookupReadModelBlueprint :: ReadModelBlueprint LabelLookupQueryInput LabelLookupQueryResult
labelLookupReadModelBlueprint =
  ReadModelBlueprint
    { name = "structural-text-sets-label-lookup"
    , tableName = "label_values"
    , schema = "public"
    , version = 1
    , shapeHash = "fnv1a:3c07a19c552c3547"
    , cursorAuthority = DurableQueryCursor "label-writer"
    , query = labelLookupQuery
    }