adds unit encoding

OxfordAbstracts · Apr 22, 2024 · 481e3dc · 481e3dc
1 parent 7f85c4d
commit 481e3dc
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/src/GraphQL/Hasura/Decode.purs b/src/GraphQL/Hasura/Decode.purs
@@ -36,6 +36,9 @@ type Err a = Either JsonDecodeError a
 class DecodeHasura a where
   decodeHasura :: Json -> Either JsonDecodeError a
 
+instance decodeHasuraUnit :: DecodeHasura Unit where
+  decodeHasura = decodeJson
+
 instance decodeHasuraBoolean :: DecodeHasura Boolean where
   decodeHasura = decodeJson
 

diff --git a/src/GraphQL/Hasura/Encode.purs b/src/GraphQL/Hasura/Encode.purs
@@ -13,6 +13,9 @@ import Unsafe.Coerce (unsafeCoerce)
 class EncodeHasura a where
   encodeHasura :: a -> Json
 
+instance encodeHasuraUnit :: EncodeHasura Unit where
+  encodeHasura = encodeJson
+
 instance encodeHasuraBoolean :: EncodeHasura Boolean where
   encodeHasura = encodeJson