Any.hs

-- Note: this is an automatically generated file. Do not edit.

-- | DSL functions for hydra.ext.protobuf.any

module Hydra.Ext.Dsl.Protobuf.Any where

import qualified Hydra.Core.Model as Model
import qualified Hydra.Core.Typed as Typed
import qualified Hydra.Ext.Protobuf.Any as Any
import Prelude hiding  (Enum, Ordering, decodeFloat, encodeFloat, fail, lines, map, pure, sum, unlines)
import qualified Data.Scientific as Sci
import Data.Void
import qualified Data.ByteString as B

-- | DSL constructor for hydra.ext.protobuf.any.Any
any :: Typed.TypedTerm String -> Typed.TypedTerm B.ByteString -> Typed.TypedTerm Any.Any
any typeUrl value =
    Typed.TypedTerm (Model.TermRecord (Model.Record {
      Model.recordTypeName = (Model.Name "hydra.ext.protobuf.any.Any"),
      Model.recordFields = [
        Model.Field {
          Model.fieldName = (Model.Name "typeUrl"),
          Model.fieldTerm = (Typed.unTypedTerm typeUrl)},
        Model.Field {
          Model.fieldName = (Model.Name "value"),
          Model.fieldTerm = (Typed.unTypedTerm value)}]}))

-- | DSL name token for hydra.ext.protobuf.any.Any
anyAny :: Typed.TypedName Any.Any
anyAny = Typed.TypedName (Model.Name "hydra.ext.protobuf.any.Any")

-- | DSL accessor for the typeUrl field of hydra.ext.protobuf.any.Any
anyTypeUrl :: Typed.TypedTerm Any.Any -> Typed.TypedTerm String
anyTypeUrl x =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermProject (Model.Projection {
        Model.projectionTypeName = (Model.Name "hydra.ext.protobuf.any.Any"),
        Model.projectionFieldName = (Model.Name "typeUrl")})),
      Model.applicationArgument = (Typed.unTypedTerm x)}))

-- | DSL accessor for the value field of hydra.ext.protobuf.any.Any
anyValue :: Typed.TypedTerm Any.Any -> Typed.TypedTerm B.ByteString
anyValue x =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermProject (Model.Projection {
        Model.projectionTypeName = (Model.Name "hydra.ext.protobuf.any.Any"),
        Model.projectionFieldName = (Model.Name "value")})),
      Model.applicationArgument = (Typed.unTypedTerm x)}))

-- | DSL updater for the typeUrl field of hydra.ext.protobuf.any.Any
anyWithTypeUrl :: Typed.TypedTerm Any.Any -> Typed.TypedTerm String -> Typed.TypedTerm Any.Any
anyWithTypeUrl original newVal =
    Typed.TypedTerm (Model.TermRecord (Model.Record {
      Model.recordTypeName = (Model.Name "hydra.ext.protobuf.any.Any"),
      Model.recordFields = [
        Model.Field {
          Model.fieldName = (Model.Name "typeUrl"),
          Model.fieldTerm = (Typed.unTypedTerm newVal)},
        Model.Field {
          Model.fieldName = (Model.Name "value"),
          Model.fieldTerm = (Model.TermApplication (Model.Application {
            Model.applicationFunction = (Model.TermProject (Model.Projection {
              Model.projectionTypeName = (Model.Name "hydra.ext.protobuf.any.Any"),
              Model.projectionFieldName = (Model.Name "value")})),
            Model.applicationArgument = (Typed.unTypedTerm original)}))}]}))

-- | DSL updater for the value field of hydra.ext.protobuf.any.Any
anyWithValue :: Typed.TypedTerm Any.Any -> Typed.TypedTerm B.ByteString -> Typed.TypedTerm Any.Any
anyWithValue original newVal =
    Typed.TypedTerm (Model.TermRecord (Model.Record {
      Model.recordTypeName = (Model.Name "hydra.ext.protobuf.any.Any"),
      Model.recordFields = [
        Model.Field {
          Model.fieldName = (Model.Name "typeUrl"),
          Model.fieldTerm = (Model.TermApplication (Model.Application {
            Model.applicationFunction = (Model.TermProject (Model.Projection {
              Model.projectionTypeName = (Model.Name "hydra.ext.protobuf.any.Any"),
              Model.projectionFieldName = (Model.Name "typeUrl")})),
            Model.applicationArgument = (Typed.unTypedTerm original)}))},
        Model.Field {
          Model.fieldName = (Model.Name "value"),
          Model.fieldTerm = (Typed.unTypedTerm newVal)}]}))