1 files changed, 27 insertions, 0 deletions

diff --git a/src/Data/JLD/Model/ValueObject.hs b/src/Data/JLD/Model/ValueObject.hs
new file mode 100644
index 0000000..79bd94f
--- /dev/null
+++ b/src/Data/JLD/Model/ValueObject.hs
@@ -0,0 +1,27 @@
+module Data.JLD.Model.ValueObject (isValueObject, isValueObject', isNotValueObject, isNotValueObject', valueObjectValue) where
+
+import Data.JLD.Prelude
+
+import Data.JLD.Model.Keyword (Keyword (..), isNotKeyword)
+
+import Data.Aeson (Object, Value (..))
+import Data.Aeson.Key qualified as K
+import Data.Aeson.KeyMap qualified as KM
+
+isValueObject :: Value -> Bool
+isValueObject (Object o) = isValueObject' o
+isValueObject _ = False
+
+isValueObject' :: Object -> Bool
+isValueObject' = KM.member (show KeywordValue)
+
+isNotValueObject :: Value -> Bool
+isNotValueObject (Object o) = isNotValueObject' o
+isNotValueObject _ = False
+
+isNotValueObject' :: Object -> Bool
+isNotValueObject' = KM.keys .> fmap K.toText .> any (`isNotKeyword` [KeywordType, KeywordValue, KeywordDirection, KeywordLanguage, KeywordIndex])
+
+valueObjectValue :: Value -> Maybe Value
+valueObjectValue (Object o) = KM.lookup (show KeywordValue) o
+valueObjectValue _ = Nothing