Init

1 files changed, 43 insertions, 0 deletions

diff --git a/src/Data/JLD/Model/TermDefinition.hs b/src/Data/JLD/Model/TermDefinition.hs
new file mode 100644
index 0000000..5f39eee
--- /dev/null
+++ b/src/Data/JLD/Model/TermDefinition.hs
@@ -0,0 +1,43 @@
+module Data.JLD.Model.TermDefinition (TermDefinition (..), newTermDefinition) where
+
+import Data.JLD.Prelude
+
+import Data.JLD.Model.Direction (Direction)
+import Data.JLD.Model.Language (Language)
+
+import Data.Aeson (Value)
+import Text.URI (URI)
+
+data TermDefinition = TermDefinition
+    { termDefinitionIriMapping :: Maybe Text
+    , termDefinitionPrefixFlag :: Bool
+    , termDefinitionProtectedFlag :: Bool
+    , termDefinitionReversePropertyFlag :: Bool
+    , termDefinitionBaseUrl :: Maybe URI
+    , termDefinitionLocalContext :: Maybe Value
+    , termDefinitionContainerMapping :: Set Text
+    , termDefinitionIndexMapping :: Maybe Text
+    , termDefinitionNestValue :: Maybe Text
+    , termDefinitionTypeMapping :: Maybe Text
+    , termDefinitionDirectionMapping :: Maybe Direction
+    , termDefinitionLanguageMapping :: Maybe Language
+    }
+    deriving (Show, Eq)
+
+newTermDefinition :: Bool -> (TermDefinition -> TermDefinition) -> TermDefinition
+newTermDefinition protectedFlag fn =
+    fn
+        TermDefinition
+            { termDefinitionIriMapping = Nothing
+            , termDefinitionPrefixFlag = False
+            , termDefinitionProtectedFlag = protectedFlag
+            , termDefinitionReversePropertyFlag = False
+            , termDefinitionBaseUrl = Nothing
+            , termDefinitionLocalContext = Nothing
+            , termDefinitionContainerMapping = mempty
+            , termDefinitionIndexMapping = Nothing
+            , termDefinitionNestValue = Nothing
+            , termDefinitionTypeMapping = Nothing
+            , termDefinitionDirectionMapping = Nothing
+            , termDefinitionLanguageMapping = Nothing
+            }