aboutsummaryrefslogtreecommitdiffstats
path: root/src/Data/JLD/Model
diff options
context:
space:
mode:
Diffstat (limited to 'src/Data/JLD/Model')
-rw-r--r--src/Data/JLD/Model/Keyword.hs3
-rw-r--r--src/Data/JLD/Model/NodeMap.hs14
2 files changed, 16 insertions, 1 deletions
diff --git a/src/Data/JLD/Model/Keyword.hs b/src/Data/JLD/Model/Keyword.hs
index 10835a9..ab86164 100644
--- a/src/Data/JLD/Model/Keyword.hs
+++ b/src/Data/JLD/Model/Keyword.hs
@@ -32,6 +32,7 @@ data Keyword
32 | KeywordJson 32 | KeywordJson
33 | KeywordLanguage 33 | KeywordLanguage
34 | KeywordList 34 | KeywordList
35 | KeywordMerged
35 | KeywordNest 36 | KeywordNest
36 | KeywordNone 37 | KeywordNone
37 | KeywordNull 38 | KeywordNull
@@ -68,6 +69,7 @@ instance Show Keyword where
68 KeywordJson -> "@json" 69 KeywordJson -> "@json"
69 KeywordLanguage -> "@language" 70 KeywordLanguage -> "@language"
70 KeywordList -> "@list" 71 KeywordList -> "@list"
72 KeywordMerged -> "@merged"
71 KeywordNest -> "@nest" 73 KeywordNest -> "@nest"
72 KeywordNone -> "@none" 74 KeywordNone -> "@none"
73 KeywordNull -> "@null" 75 KeywordNull -> "@null"
@@ -103,6 +105,7 @@ parseKeyword = \case
103 "@json" -> Just KeywordJson 105 "@json" -> Just KeywordJson
104 "@language" -> Just KeywordLanguage 106 "@language" -> Just KeywordLanguage
105 "@list" -> Just KeywordList 107 "@list" -> Just KeywordList
108 "@merged" -> Just KeywordMerged
106 "@nest" -> Just KeywordNest 109 "@nest" -> Just KeywordNest
107 "@none" -> Just KeywordNone 110 "@none" -> Just KeywordNone
108 "@null" -> Just KeywordNull 111 "@null" -> Just KeywordNull
diff --git a/src/Data/JLD/Model/NodeMap.hs b/src/Data/JLD/Model/NodeMap.hs
index 48db17e..d0fb2f9 100644
--- a/src/Data/JLD/Model/NodeMap.hs
+++ b/src/Data/JLD/Model/NodeMap.hs
@@ -1,4 +1,16 @@
1module Data.JLD.Model.NodeMap (NodeMap, lookup, lookup2, lookup3, insert, modifyArray, hasKey2, hasKey3, memberArray) where 1module Data.JLD.Model.NodeMap (
2 NodeMap,
3 SubjectMap,
4 PropertyMap,
5 lookup,
6 lookup2,
7 lookup3,
8 insert,
9 modifyArray,
10 hasKey2,
11 hasKey3,
12 memberArray,
13) where
2 14
3import Data.JLD.Prelude hiding (modify) 15import Data.JLD.Prelude hiding (modify)
4 16