From 11d0fb47c292a0ca25a9c377499d2b221d97a5cb Mon Sep 17 00:00:00 2001
From: Volpeon <github@volpeon.ink>
Date: Fri, 26 May 2023 07:40:13 +0200
Subject: Init

---
 src/Data/JLD/Model/GraphObject.hs | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 src/Data/JLD/Model/GraphObject.hs

(limited to 'src/Data/JLD/Model/GraphObject.hs')

diff --git a/src/Data/JLD/Model/GraphObject.hs b/src/Data/JLD/Model/GraphObject.hs
new file mode 100644
index 0000000..3db9e6b
--- /dev/null
+++ b/src/Data/JLD/Model/GraphObject.hs
@@ -0,0 +1,22 @@
+module Data.JLD.Model.GraphObject (isGraphObject, isNotGraphObject, toGraphObject) where
+
+import Data.JLD.Prelude
+
+import Data.JLD.Model.Keyword (Keyword (..), isKeyword)
+
+import Data.Aeson (Object, Value (..))
+import Data.Aeson.Key qualified as K (toText)
+import Data.Aeson.KeyMap qualified as KM (keys, singleton, member)
+import Data.Vector qualified as V (singleton)
+
+isGraphObject :: Value -> Bool
+isGraphObject (Object o)
+    | KM.member (show KeywordGraph) o =
+        all (`isKeyword` [KeywordGraph, KeywordId, KeywordIndex, KeywordContext]) (K.toText <$> KM.keys o)
+isGraphObject _ = False
+
+isNotGraphObject :: Value -> Bool
+isNotGraphObject = isGraphObject .> not
+
+toGraphObject :: Value -> Object
+toGraphObject = V.singleton .> Array .> KM.singleton (show KeywordGraph)
-- 
cgit v1.2.3-54-g00ecf