From 4f3dc25f63c21fc74f1b2370335eb83c27d42ecd Mon Sep 17 00:00:00 2001 From: Volpeon Date: Sat, 27 May 2023 21:19:25 +0200 Subject: Added Node Map Merging algorithm --- src/Data/JLD/Model/Keyword.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Data/JLD/Model/Keyword.hs') 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 | KeywordJson | KeywordLanguage | KeywordList + | KeywordMerged | KeywordNest | KeywordNone | KeywordNull @@ -68,6 +69,7 @@ instance Show Keyword where KeywordJson -> "@json" KeywordLanguage -> "@language" KeywordList -> "@list" + KeywordMerged -> "@merged" KeywordNest -> "@nest" KeywordNone -> "@none" KeywordNull -> "@null" @@ -103,6 +105,7 @@ parseKeyword = \case "@json" -> Just KeywordJson "@language" -> Just KeywordLanguage "@list" -> Just KeywordList + "@merged" -> Just KeywordMerged "@nest" -> Just KeywordNest "@none" -> Just KeywordNone "@null" -> Just KeywordNull -- cgit v1.2.3-54-g00ecf