Docs.hs

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

-- | DSL functions for hydra.docs

module Hydra.Dsl.Docs where

import qualified Hydra.Core as Core
import qualified Hydra.Decode.Docs as DecodeDocs
import qualified Hydra.Docs as Docs
import qualified Hydra.Dsl.Packaging as DslPackaging
import qualified Hydra.Encode.Docs as EncodeDocs
import qualified Hydra.Packaging as Packaging
import qualified Hydra.Typed as Typed
import Prelude hiding  (Enum, Ordering, decodeFloat, encodeFloat, fail, map, pure, sum)
import qualified Data.Scientific as Sci

-- | DSL name token for hydra.docs.DocSegment
docSegmentDocSegment :: Typed.TypedName Docs.DocSegment
docSegmentDocSegment = Typed.TypedName (Core.Name "hydra.docs.DocSegment")

-- | DSL injection for the ref variant of hydra.docs.DocSegment
docSegmentRef :: Typed.TypedTerm Packaging.EntityReference -> Typed.TypedTerm Docs.DocSegment
docSegmentRef x =
    Typed.TypedTerm (Core.TermInject (Core.Injection {
      Core.injectionTypeName = (Core.Name "hydra.docs.DocSegment"),
      Core.injectionField = Core.Field {
        Core.fieldName = (Core.Name "ref"),
        Core.fieldTerm = (Typed.unTypedTerm x)}}))

-- | DSL injection for the text variant of hydra.docs.DocSegment
docSegmentText :: Typed.TypedTerm String -> Typed.TypedTerm Docs.DocSegment
docSegmentText x =
    Typed.TypedTerm (Core.TermInject (Core.Injection {
      Core.injectionTypeName = (Core.Name "hydra.docs.DocSegment"),
      Core.injectionField = Core.Field {
        Core.fieldName = (Core.Name "text"),
        Core.fieldTerm = (Typed.unTypedTerm x)}}))