Docs.hs

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

-- | Term encoders for hydra.core.docs

module Hydra.Core.Encode.Docs where

import qualified Hydra.Core.Docs as Docs
import qualified Hydra.Core.Encode.Packaging as Packaging
import qualified Hydra.Core.Model as Model
import Prelude hiding  (Enum, Ordering, decodeFloat, encodeFloat, fail, lines, map, pure, sum, unlines)
import qualified Data.Scientific as Sci
import Data.Void

-- | Encoder for hydra.core.docs.DocSegment
docSegment :: Docs.DocSegment -> Model.Term
docSegment x =
    case x of
      Docs.DocSegmentRef v0 -> Model.TermInject (Model.Injection {
        Model.injectionTypeName = (Model.Name "hydra.core.docs.DocSegment"),
        Model.injectionField = Model.Field {
          Model.fieldName = (Model.Name "ref"),
          Model.fieldTerm = (Packaging.entityReference v0)}})
      Docs.DocSegmentText v0 -> Model.TermInject (Model.Injection {
        Model.injectionTypeName = (Model.Name "hydra.core.docs.DocSegment"),
        Model.injectionField = Model.Field {
          Model.fieldName = (Model.Name "text"),
          Model.fieldTerm = (Model.TermLiteral (Model.LiteralString v0))}})