diff options
Diffstat (limited to 'src/Data/JLD/Model/Keyword.hs')
-rw-r--r-- | src/Data/JLD/Model/Keyword.hs | 3 |
1 files changed, 3 insertions, 0 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 |