hydra-kernel-0.18.0: src/main/haskell/Hydra/Core/Dsl/Annotations.hs

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

-- | DSL functions for hydra.core.annotations

module Hydra.Core.Dsl.Annotations where

import qualified Hydra.Core.Annotations as Annotations
import qualified Hydra.Core.Ast as Ast
import qualified Hydra.Core.Coders as Coders
import qualified Hydra.Core.Constants as Constants
import qualified Hydra.Core.Decode.Model as DecodeModel
import qualified Hydra.Core.Diff as Diff
import qualified Hydra.Core.Docs as Docs
import qualified Hydra.Core.Dsl.Ast as DslAst
import qualified Hydra.Core.Dsl.Coders as DslCoders
import qualified Hydra.Core.Dsl.Constants as DslConstants
import qualified Hydra.Core.Dsl.Diff as DslDiff
import qualified Hydra.Core.Dsl.Docs as DslDocs
import qualified Hydra.Core.Dsl.Error.Checking as ErrorChecking
import qualified Hydra.Core.Dsl.Error.File as DslErrorFile
import qualified Hydra.Core.Dsl.Error.Model as DslErrorModel
import qualified Hydra.Core.Dsl.Error.Packaging as DslErrorPackaging
import qualified Hydra.Core.Dsl.Error.System as DslErrorSystem
import qualified Hydra.Core.Dsl.Errors as DslErrors
import qualified Hydra.Core.Dsl.File as DslFile
import qualified Hydra.Core.Dsl.Graph as DslGraph
import qualified Hydra.Core.Dsl.Json.Model as DslJsonModel
import qualified Hydra.Core.Dsl.Lexical as DslLexical
import qualified Hydra.Core.Dsl.Markdown as DslMarkdown
import qualified Hydra.Core.Dsl.Model as DslModel
import qualified Hydra.Core.Dsl.Packaging as DslPackaging
import qualified Hydra.Core.Dsl.Parsing as DslParsing
import qualified Hydra.Core.Dsl.Paths as DslPaths
import qualified Hydra.Core.Dsl.Query as DslQuery
import qualified Hydra.Core.Dsl.Regex as DslRegex
import qualified Hydra.Core.Dsl.Relational as DslRelational
import qualified Hydra.Core.Dsl.Strip as DslStrip
import qualified Hydra.Core.Dsl.System as DslSystem
import qualified Hydra.Core.Dsl.Tabular as DslTabular
import qualified Hydra.Core.Dsl.Testing as DslTesting
import qualified Hydra.Core.Dsl.Time as DslTime
import qualified Hydra.Core.Dsl.Topology as DslTopology
import qualified Hydra.Core.Dsl.Typing as DslTyping
import qualified Hydra.Core.Dsl.Util as DslUtil
import qualified Hydra.Core.Dsl.Validation as DslValidation
import qualified Hydra.Core.Dsl.Variants as DslVariants
import qualified Hydra.Core.Encode.Model as EncodeModel
import qualified Hydra.Core.Error.Checking as Checking
import qualified Hydra.Core.Error.File as ErrorFile
import qualified Hydra.Core.Error.Model as ErrorModel
import qualified Hydra.Core.Error.Packaging as ErrorPackaging
import qualified Hydra.Core.Error.System as ErrorSystem
import qualified Hydra.Core.Errors as Errors
import qualified Hydra.Core.Extract.Model as ExtractModel
import qualified Hydra.Core.File as File
import qualified Hydra.Core.Graph as Graph
import qualified Hydra.Core.Json.Model as JsonModel
import qualified Hydra.Core.Lexical as Lexical
import qualified Hydra.Core.Markdown as Markdown
import qualified Hydra.Core.Model as Model
import qualified Hydra.Core.Packaging as Packaging
import qualified Hydra.Core.Parsing as Parsing
import qualified Hydra.Core.Paths as Paths
import qualified Hydra.Core.Print.Errors as PrintErrors
import qualified Hydra.Core.Print.Model as PrintModel
import qualified Hydra.Core.Query as Query
import qualified Hydra.Core.Regex as Regex
import qualified Hydra.Core.Relational as Relational
import qualified Hydra.Core.Strip as Strip
import qualified Hydra.Core.System as System
import qualified Hydra.Core.Tabular as Tabular
import qualified Hydra.Core.Testing as Testing
import qualified Hydra.Core.Time as Time
import qualified Hydra.Core.Topology as Topology
import qualified Hydra.Core.Typed as Typed
import qualified Hydra.Core.Typing as Typing
import qualified Hydra.Core.Util as Util
import qualified Hydra.Core.Validation as Validation
import qualified Hydra.Core.Variants as Variants
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.Map as M
import qualified Data.Set as S

-- | DSL reference to hydra.core.annotations.aggregateAnnotations
aggregateAnnotations :: Typed.TypedTerm (t0 -> Maybe t1) -> Typed.TypedTerm (t1 -> t0) -> Typed.TypedTerm (t1 -> M.Map t2 t3) -> Typed.TypedTerm t0 -> Typed.TypedTerm (M.Map t2 t3)
aggregateAnnotations arg0 arg1 arg2 arg3 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermApplication (Model.Application {
          Model.applicationFunction = (Model.TermApplication (Model.Application {
            Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.aggregateAnnotations")),
            Model.applicationArgument = (Typed.unTypedTerm arg0)})),
          Model.applicationArgument = (Typed.unTypedTerm arg1)})),
        Model.applicationArgument = (Typed.unTypedTerm arg2)})),
      Model.applicationArgument = (Typed.unTypedTerm arg3)}))

-- | DSL reference to hydra.core.annotations.commentsFromBinding
commentsFromBinding :: Typed.TypedTerm t0 -> Typed.TypedTerm Graph.Graph -> Typed.TypedTerm Model.Binding -> Typed.TypedTerm (Either Errors.Error (Maybe String))
commentsFromBinding arg0 arg1 arg2 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermApplication (Model.Application {
          Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.commentsFromBinding")),
          Model.applicationArgument = (Typed.unTypedTerm arg0)})),
        Model.applicationArgument = (Typed.unTypedTerm arg1)})),
      Model.applicationArgument = (Typed.unTypedTerm arg2)}))

-- | DSL reference to hydra.core.annotations.commentsFromFieldType
commentsFromFieldType :: Typed.TypedTerm t0 -> Typed.TypedTerm Graph.Graph -> Typed.TypedTerm Model.FieldType -> Typed.TypedTerm (Either Errors.Error (Maybe String))
commentsFromFieldType arg0 arg1 arg2 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermApplication (Model.Application {
          Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.commentsFromFieldType")),
          Model.applicationArgument = (Typed.unTypedTerm arg0)})),
        Model.applicationArgument = (Typed.unTypedTerm arg1)})),
      Model.applicationArgument = (Typed.unTypedTerm arg2)}))

-- | DSL reference to hydra.core.annotations.getAnnotationMap
getAnnotationMap :: Typed.TypedTerm Model.Term -> Typed.TypedTerm (M.Map Model.Name Model.Term)
getAnnotationMap arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.getAnnotationMap")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.annotations.getDescription
getDescription :: Typed.TypedTerm t0 -> Typed.TypedTerm Graph.Graph -> Typed.TypedTerm (M.Map Model.Name Model.Term) -> Typed.TypedTerm (Either Errors.Error (Maybe String))
getDescription arg0 arg1 arg2 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermApplication (Model.Application {
          Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.getDescription")),
          Model.applicationArgument = (Typed.unTypedTerm arg0)})),
        Model.applicationArgument = (Typed.unTypedTerm arg1)})),
      Model.applicationArgument = (Typed.unTypedTerm arg2)}))

-- | DSL reference to hydra.core.annotations.getTermAnnotation
getTermAnnotation :: Typed.TypedTerm Model.Name -> Typed.TypedTerm Model.Term -> Typed.TypedTerm (Maybe Model.Term)
getTermAnnotation arg0 arg1 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.getTermAnnotation")),
        Model.applicationArgument = (Typed.unTypedTerm arg0)})),
      Model.applicationArgument = (Typed.unTypedTerm arg1)}))

-- | DSL reference to hydra.core.annotations.getTermDescription
getTermDescription :: Typed.TypedTerm t0 -> Typed.TypedTerm Graph.Graph -> Typed.TypedTerm Model.Term -> Typed.TypedTerm (Either Errors.Error (Maybe String))
getTermDescription arg0 arg1 arg2 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermApplication (Model.Application {
          Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.getTermDescription")),
          Model.applicationArgument = (Typed.unTypedTerm arg0)})),
        Model.applicationArgument = (Typed.unTypedTerm arg1)})),
      Model.applicationArgument = (Typed.unTypedTerm arg2)}))

-- | DSL reference to hydra.core.annotations.getType
getType :: Typed.TypedTerm Graph.Graph -> Typed.TypedTerm (M.Map Model.Name Model.Term) -> Typed.TypedTerm (Either Errors.DecodingError (Maybe Model.Type))
getType arg0 arg1 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.getType")),
        Model.applicationArgument = (Typed.unTypedTerm arg0)})),
      Model.applicationArgument = (Typed.unTypedTerm arg1)}))

-- | DSL reference to hydra.core.annotations.getTypeAnnotation
getTypeAnnotation :: Typed.TypedTerm Model.Name -> Typed.TypedTerm Model.Type -> Typed.TypedTerm (Maybe Model.Term)
getTypeAnnotation arg0 arg1 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.getTypeAnnotation")),
        Model.applicationArgument = (Typed.unTypedTerm arg0)})),
      Model.applicationArgument = (Typed.unTypedTerm arg1)}))

-- | DSL reference to hydra.core.annotations.getTypeClasses
getTypeClasses :: Typed.TypedTerm t0 -> Typed.TypedTerm Graph.Graph -> Typed.TypedTerm Model.Term -> Typed.TypedTerm (Either Errors.Error (M.Map Model.Name (S.Set Model.Name)))
getTypeClasses arg0 arg1 arg2 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermApplication (Model.Application {
          Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.getTypeClasses")),
          Model.applicationArgument = (Typed.unTypedTerm arg0)})),
        Model.applicationArgument = (Typed.unTypedTerm arg1)})),
      Model.applicationArgument = (Typed.unTypedTerm arg2)}))

-- | DSL reference to hydra.core.annotations.getTypeDescription
getTypeDescription :: Typed.TypedTerm t0 -> Typed.TypedTerm Graph.Graph -> Typed.TypedTerm Model.Type -> Typed.TypedTerm (Either Errors.Error (Maybe String))
getTypeDescription arg0 arg1 arg2 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermApplication (Model.Application {
          Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.getTypeDescription")),
          Model.applicationArgument = (Typed.unTypedTerm arg0)})),
        Model.applicationArgument = (Typed.unTypedTerm arg1)})),
      Model.applicationArgument = (Typed.unTypedTerm arg2)}))

-- | DSL reference to hydra.core.annotations.hasDescription
hasDescription :: Typed.TypedTerm (M.Map Model.Name t0) -> Typed.TypedTerm Bool
hasDescription arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.hasDescription")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.annotations.hasTypeDescription
hasTypeDescription :: Typed.TypedTerm Model.Type -> Typed.TypedTerm Bool
hasTypeDescription arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.hasTypeDescription")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.annotations.isNativeType
isNativeType :: Typed.TypedTerm Model.Binding -> Typed.TypedTerm Bool
isNativeType arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.isNativeType")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.annotations.normalizeTermAnnotations
normalizeTermAnnotations :: Typed.TypedTerm Model.Term -> Typed.TypedTerm Model.Term
normalizeTermAnnotations arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.normalizeTermAnnotations")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.annotations.normalizeTypeAnnotations
normalizeTypeAnnotations :: Typed.TypedTerm Model.Type -> Typed.TypedTerm Model.Type
normalizeTypeAnnotations arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.normalizeTypeAnnotations")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.annotations.setAnnotation
setAnnotation :: Typed.TypedTerm t0 -> Typed.TypedTerm (Maybe t1) -> Typed.TypedTerm (M.Map t0 t1) -> Typed.TypedTerm (M.Map t0 t1)
setAnnotation arg0 arg1 arg2 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermApplication (Model.Application {
          Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.setAnnotation")),
          Model.applicationArgument = (Typed.unTypedTerm arg0)})),
        Model.applicationArgument = (Typed.unTypedTerm arg1)})),
      Model.applicationArgument = (Typed.unTypedTerm arg2)}))

-- | DSL reference to hydra.core.annotations.setDescription
setDescription :: Typed.TypedTerm (Maybe String) -> Typed.TypedTerm (M.Map Model.Name Model.Term) -> Typed.TypedTerm (M.Map Model.Name Model.Term)
setDescription arg0 arg1 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.setDescription")),
        Model.applicationArgument = (Typed.unTypedTerm arg0)})),
      Model.applicationArgument = (Typed.unTypedTerm arg1)}))

-- | DSL reference to hydra.core.annotations.setTermAnnotation
setTermAnnotation :: Typed.TypedTerm Model.Name -> Typed.TypedTerm (Maybe Model.Term) -> Typed.TypedTerm Model.Term -> Typed.TypedTerm Model.Term
setTermAnnotation arg0 arg1 arg2 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermApplication (Model.Application {
          Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.setTermAnnotation")),
          Model.applicationArgument = (Typed.unTypedTerm arg0)})),
        Model.applicationArgument = (Typed.unTypedTerm arg1)})),
      Model.applicationArgument = (Typed.unTypedTerm arg2)}))

-- | DSL reference to hydra.core.annotations.setTermDescription
setTermDescription :: Typed.TypedTerm (Maybe String) -> Typed.TypedTerm Model.Term -> Typed.TypedTerm Model.Term
setTermDescription arg0 arg1 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.setTermDescription")),
        Model.applicationArgument = (Typed.unTypedTerm arg0)})),
      Model.applicationArgument = (Typed.unTypedTerm arg1)}))

-- | DSL reference to hydra.core.annotations.setType
setType :: Typed.TypedTerm (Maybe Model.Type) -> Typed.TypedTerm (M.Map Model.Name Model.Term) -> Typed.TypedTerm (M.Map Model.Name Model.Term)
setType arg0 arg1 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.setType")),
        Model.applicationArgument = (Typed.unTypedTerm arg0)})),
      Model.applicationArgument = (Typed.unTypedTerm arg1)}))

-- | DSL reference to hydra.core.annotations.setTypeAnnotation
setTypeAnnotation :: Typed.TypedTerm Model.Name -> Typed.TypedTerm (Maybe Model.Term) -> Typed.TypedTerm Model.Type -> Typed.TypedTerm Model.Type
setTypeAnnotation arg0 arg1 arg2 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermApplication (Model.Application {
          Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.setTypeAnnotation")),
          Model.applicationArgument = (Typed.unTypedTerm arg0)})),
        Model.applicationArgument = (Typed.unTypedTerm arg1)})),
      Model.applicationArgument = (Typed.unTypedTerm arg2)}))

-- | DSL reference to hydra.core.annotations.setTypeClasses
setTypeClasses :: Typed.TypedTerm (M.Map Model.Name (S.Set Model.Name)) -> Typed.TypedTerm Model.Term -> Typed.TypedTerm Model.Term
setTypeClasses arg0 arg1 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.setTypeClasses")),
        Model.applicationArgument = (Typed.unTypedTerm arg0)})),
      Model.applicationArgument = (Typed.unTypedTerm arg1)}))

-- | DSL reference to hydra.core.annotations.setTypeDescription
setTypeDescription :: Typed.TypedTerm (Maybe String) -> Typed.TypedTerm Model.Type -> Typed.TypedTerm Model.Type
setTypeDescription arg0 arg1 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermApplication (Model.Application {
        Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.setTypeDescription")),
        Model.applicationArgument = (Typed.unTypedTerm arg0)})),
      Model.applicationArgument = (Typed.unTypedTerm arg1)}))

-- | DSL reference to hydra.core.annotations.termAnnotationInternal
termAnnotationInternal :: Typed.TypedTerm Model.Term -> Typed.TypedTerm (M.Map Model.Name Model.Term)
termAnnotationInternal arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.termAnnotationInternal")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.annotations.typeAnnotationInternal
typeAnnotationInternal :: Typed.TypedTerm Model.Type -> Typed.TypedTerm (M.Map Model.Name Model.Term)
typeAnnotationInternal arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.typeAnnotationInternal")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))

-- | DSL reference to hydra.core.annotations.wrapAnnotationMap
wrapAnnotationMap :: Typed.TypedTerm (M.Map Model.Name Model.Term) -> Typed.TypedTerm Model.Term
wrapAnnotationMap arg0 =
    Typed.TypedTerm (Model.TermApplication (Model.Application {
      Model.applicationFunction = (Model.TermVariable (Model.Name "hydra.core.annotations.wrapAnnotationMap")),
      Model.applicationArgument = (Typed.unTypedTerm arg0)}))