From 11d0fb47c292a0ca25a9c377499d2b221d97a5cb Mon Sep 17 00:00:00 2001
From: Volpeon <github@volpeon.ink>
Date: Fri, 26 May 2023 07:40:13 +0200
Subject: Init

---
 src/Data/JLD/Model/TermDefinition.hs | 43 ++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 src/Data/JLD/Model/TermDefinition.hs

(limited to 'src/Data/JLD/Model/TermDefinition.hs')

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
+            }
-- 
cgit v1.2.3-54-g00ecf