diff options
Diffstat (limited to 'src/Data/JLD/Model')
| -rw-r--r-- | src/Data/JLD/Model/Keyword.hs | 3 | ||||
| -rw-r--r-- | src/Data/JLD/Model/NodeMap.hs | 14 |
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 @@ | |||
| 1 | module Data.JLD.Model.NodeMap (NodeMap, lookup, lookup2, lookup3, insert, modifyArray, hasKey2, hasKey3, memberArray) where | 1 | module 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 | ||
| 3 | import Data.JLD.Prelude hiding (modify) | 15 | import Data.JLD.Prelude hiding (modify) |
| 4 | 16 | ||
