diff options
Diffstat (limited to 'src/Data/JLD/Model/TermDefinition.hs')
-rw-r--r-- | src/Data/JLD/Model/TermDefinition.hs | 43 |
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 @@ | |||
1 | module Data.JLD.Model.TermDefinition (TermDefinition (..), newTermDefinition) where | ||
2 | |||
3 | import Data.JLD.Prelude | ||
4 | |||
5 | import Data.JLD.Model.Direction (Direction) | ||
6 | import Data.JLD.Model.Language (Language) | ||
7 | |||
8 | import Data.Aeson (Value) | ||
9 | import Text.URI (URI) | ||
10 | |||
11 | data TermDefinition = TermDefinition | ||
12 | { termDefinitionIriMapping :: Maybe Text | ||
13 | , termDefinitionPrefixFlag :: Bool | ||
14 | , termDefinitionProtectedFlag :: Bool | ||
15 | , termDefinitionReversePropertyFlag :: Bool | ||
16 | , termDefinitionBaseUrl :: Maybe URI | ||
17 | , termDefinitionLocalContext :: Maybe Value | ||
18 | , termDefinitionContainerMapping :: Set Text | ||
19 | , termDefinitionIndexMapping :: Maybe Text | ||
20 | , termDefinitionNestValue :: Maybe Text | ||
21 | , termDefinitionTypeMapping :: Maybe Text | ||
22 | , termDefinitionDirectionMapping :: Maybe Direction | ||
23 | , termDefinitionLanguageMapping :: Maybe Language | ||
24 | } | ||
25 | deriving (Show, Eq) | ||
26 | |||
27 | newTermDefinition :: Bool -> (TermDefinition -> TermDefinition) -> TermDefinition | ||
28 | newTermDefinition protectedFlag fn = | ||
29 | fn | ||
30 | TermDefinition | ||
31 | { termDefinitionIriMapping = Nothing | ||
32 | , termDefinitionPrefixFlag = False | ||
33 | , termDefinitionProtectedFlag = protectedFlag | ||
34 | , termDefinitionReversePropertyFlag = False | ||
35 | , termDefinitionBaseUrl = Nothing | ||
36 | , termDefinitionLocalContext = Nothing | ||
37 | , termDefinitionContainerMapping = mempty | ||
38 | , termDefinitionIndexMapping = Nothing | ||
39 | , termDefinitionNestValue = Nothing | ||
40 | , termDefinitionTypeMapping = Nothing | ||
41 | , termDefinitionDirectionMapping = Nothing | ||
42 | , termDefinitionLanguageMapping = Nothing | ||
43 | } | ||