{-# LANGUAGE OverloadedStrings #-}
module Swish.RDF.Vocabulary.Provenance
(
namespacePROV
, provActivity
, provAgent
, provControl
, provEntity
, provGeneration
, provLocation
, provParticipation
, provProvenanceContainer
, provQualifiedInvolvement
, provRecipe
, provRole
, provUsage
, provdependedOn
, provendedAt
, provhadLocation
, provhadOriginalSource
, provhadParticipant
, provhadQualifiedControl
, provhadQualifiedEntity
, provhadQualifiedGeneration
, provhadQualifiedParticipation
, provhadQualifiedUsage
, provhadRecipe
, provhadRole
, provhadTemporalValue
, provstartedAt
, provused
, provwasAttributedTo
, provwasComplementOf
, provwasControlledBy
, provwasDerivedFrom
, provwasEventuallyDerivedFrom
, provwasGeneratedAt
, provwasGeneratedBy
, provwasInformedBy
, provwasQuoteOf
, provwasRevisionOf
, provwasScheduledAfter
, provwasSummaryOf
)
where
import Swish.Namespace (Namespace, makeNamespace, ScopedName, makeNSScopedName)
import Swish.QName (LName)
import Data.Maybe (fromMaybe)
import Network.URI (URI, parseURI)
provURI :: URI
provURI :: URI
provURI = URI -> Maybe URI -> URI
forall a. a -> Maybe a -> a
fromMaybe ([Char] -> URI
forall a. HasCallStack => [Char] -> a
error [Char]
"Internal error processing PROV URI") (Maybe URI -> URI) -> Maybe URI -> URI
forall a b. (a -> b) -> a -> b
$ [Char] -> Maybe URI
parseURI [Char]
"http://www.w3.org/ns/prov-o/"
namespacePROV :: Namespace
namespacePROV :: Namespace
namespacePROV = Maybe Text -> URI -> Namespace
makeNamespace (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"prov") URI
provURI
toS :: LName -> ScopedName
toS :: LName -> ScopedName
toS = Namespace -> LName -> ScopedName
makeNSScopedName Namespace
namespacePROV
provActivity :: ScopedName
provActivity :: ScopedName
provActivity = LName -> ScopedName
toS LName
"Activity"
provAgent :: ScopedName
provAgent :: ScopedName
provAgent = LName -> ScopedName
toS LName
"Agent"
provControl :: ScopedName
provControl :: ScopedName
provControl = LName -> ScopedName
toS LName
"Control"
provEntity :: ScopedName
provEntity :: ScopedName
provEntity = LName -> ScopedName
toS LName
"Entity"
provGeneration :: ScopedName
provGeneration :: ScopedName
provGeneration = LName -> ScopedName
toS LName
"Generation"
provLocation :: ScopedName
provLocation :: ScopedName
provLocation = LName -> ScopedName
toS LName
"Location"
provParticipation :: ScopedName
provParticipation :: ScopedName
provParticipation = LName -> ScopedName
toS LName
"Participation"
provProvenanceContainer :: ScopedName
provProvenanceContainer :: ScopedName
provProvenanceContainer = LName -> ScopedName
toS LName
"ProvenanceContainer"
provQualifiedInvolvement :: ScopedName
provQualifiedInvolvement :: ScopedName
provQualifiedInvolvement = LName -> ScopedName
toS LName
"QualifiedInvolvement"
provRecipe :: ScopedName
provRecipe :: ScopedName
provRecipe = LName -> ScopedName
toS LName
"Recipe"
provRole :: ScopedName
provRole :: ScopedName
provRole = LName -> ScopedName
toS LName
"Role"
provUsage :: ScopedName
provUsage :: ScopedName
provUsage = LName -> ScopedName
toS LName
"Usage"
provdependedOn :: ScopedName
provdependedOn :: ScopedName
provdependedOn = LName -> ScopedName
toS LName
"dependedOn"
provendedAt :: ScopedName
provendedAt :: ScopedName
provendedAt = LName -> ScopedName
toS LName
"endedAt"
provhadLocation :: ScopedName
provhadLocation :: ScopedName
provhadLocation = LName -> ScopedName
toS LName
"hadLocation"
provhadOriginalSource :: ScopedName
provhadOriginalSource :: ScopedName
provhadOriginalSource = LName -> ScopedName
toS LName
"hadOriginalSource"
provhadParticipant :: ScopedName
provhadParticipant :: ScopedName
provhadParticipant = LName -> ScopedName
toS LName
"hadParticipant"
provhadQualifiedControl :: ScopedName
provhadQualifiedControl :: ScopedName
provhadQualifiedControl = LName -> ScopedName
toS LName
"hadQualifiedControl"
provhadQualifiedEntity :: ScopedName
provhadQualifiedEntity :: ScopedName
provhadQualifiedEntity = LName -> ScopedName
toS LName
"hadQualifiedEntity"
provhadQualifiedGeneration :: ScopedName
provhadQualifiedGeneration :: ScopedName
provhadQualifiedGeneration = LName -> ScopedName
toS LName
"hadQualifiedGeneration"
provhadQualifiedParticipation :: ScopedName
provhadQualifiedParticipation :: ScopedName
provhadQualifiedParticipation = LName -> ScopedName
toS LName
"hadQualifiedParticipation"
provhadQualifiedUsage :: ScopedName
provhadQualifiedUsage :: ScopedName
provhadQualifiedUsage = LName -> ScopedName
toS LName
"hadQualifiedUsage"
provhadRecipe :: ScopedName
provhadRecipe :: ScopedName
provhadRecipe = LName -> ScopedName
toS LName
"hadRecipe"
provhadRole :: ScopedName
provhadRole :: ScopedName
provhadRole = LName -> ScopedName
toS LName
"hadRole"
provhadTemporalValue :: ScopedName
provhadTemporalValue :: ScopedName
provhadTemporalValue = LName -> ScopedName
toS LName
"hadTemporalValue"
provstartedAt :: ScopedName
provstartedAt :: ScopedName
provstartedAt = LName -> ScopedName
toS LName
"startedAt"
provused :: ScopedName
provused :: ScopedName
provused = LName -> ScopedName
toS LName
"used"
provwasAttributedTo :: ScopedName
provwasAttributedTo :: ScopedName
provwasAttributedTo = LName -> ScopedName
toS LName
"wasAttributedTo"
provwasComplementOf :: ScopedName
provwasComplementOf :: ScopedName
provwasComplementOf = LName -> ScopedName
toS LName
"wasComplementOf"
provwasControlledBy :: ScopedName
provwasControlledBy :: ScopedName
provwasControlledBy = LName -> ScopedName
toS LName
"wasControlledBy"
provwasDerivedFrom :: ScopedName
provwasDerivedFrom :: ScopedName
provwasDerivedFrom = LName -> ScopedName
toS LName
"wasDerivedFrom"
provwasEventuallyDerivedFrom :: ScopedName
provwasEventuallyDerivedFrom :: ScopedName
provwasEventuallyDerivedFrom = LName -> ScopedName
toS LName
"wasEventuallyDerivedFrom"
provwasGeneratedAt :: ScopedName
provwasGeneratedAt :: ScopedName
provwasGeneratedAt = LName -> ScopedName
toS LName
"wasGeneratedAt"
provwasGeneratedBy :: ScopedName
provwasGeneratedBy :: ScopedName
provwasGeneratedBy = LName -> ScopedName
toS LName
"wasGeneratedBy"
provwasInformedBy :: ScopedName
provwasInformedBy :: ScopedName
provwasInformedBy = LName -> ScopedName
toS LName
"wasInformedBy"
provwasQuoteOf :: ScopedName
provwasQuoteOf :: ScopedName
provwasQuoteOf = LName -> ScopedName
toS LName
"wasQuoteOf"
provwasRevisionOf :: ScopedName
provwasRevisionOf :: ScopedName
provwasRevisionOf = LName -> ScopedName
toS LName
"wasRevisionOf"
provwasScheduledAfter :: ScopedName
provwasScheduledAfter :: ScopedName
provwasScheduledAfter = LName -> ScopedName
toS LName
"wasScheduledAfter"
provwasSummaryOf :: ScopedName
provwasSummaryOf :: ScopedName
provwasSummaryOf = LName -> ScopedName
toS LName
"wasSummaryOf"