Merge branch 'add-spread-queries-#57' into add-variables-to-codegen-#55

Author: roryc89

Diff for: src/GraphQL/Client/Alias/Dynamic.purs

@@ -1,17 +1,22 @@
 module GraphQL.Client.Alias.Dynamic where
 
 import Prelude
-
 import Data.Argonaut.Core (Json)
+import Data.Argonaut.Core as Argonaut
 import Data.Argonaut.Decode (class DecodeJson, JsonDecodeError, decodeJson)
 import Data.Argonaut.Decode.Decoders (decodeJObject)
+import Data.Argonaut.Encode (class EncodeJson, encodeJson)
+import Data.Array (mapWithIndex)
 import Data.Array as Array
 import Data.Either (Either)
 import Data.Generic.Rep (class Generic)
-import Data.Newtype (class Newtype)
+import Data.Newtype (class Newtype, unwrap)
 import Data.Show.Generic (genericShow)
 import Data.Traversable (traverse)
+import Data.Tuple (Tuple(..))
+import Foreign.Object as Object
 import GraphQL.Hasura.Decode (class DecodeHasura, decodeHasura)
+import GraphQL.Hasura.Encode (class EncodeHasura, encodeHasura)
 
 -- | Used for creating spread aliases dynamically
 -- | eq: 
@@ -26,6 +31,7 @@ data Spread alias args fields
   = Spread alias (Array args) fields
 
 -- | The return type of a query made with a dynamic alias spread
+-- | This type has 
 newtype SpreadRes a
   = SpreadRes (Array a)
 
@@ -37,7 +43,7 @@ derive instance eqSpreadRes :: Eq a => Eq (SpreadRes a)
 
 derive instance ordSpreadRes :: Ord a => Ord (SpreadRes a)
 
-instance showSpreadRes :: Show a => Show (SpreadRes a) where 
+instance showSpreadRes :: Show a => Show (SpreadRes a) where
   show = genericShow
 
 decodeSpreadRes :: forall a. (Json -> Either JsonDecodeError a) -> Json -> Either JsonDecodeError (SpreadRes a)
@@ -48,3 +54,16 @@ instance decodeHasuraSpreadRes :: DecodeHasura a => DecodeHasura (SpreadRes a) w
 
 instance decodeJsonSpreadRes :: DecodeJson a => DecodeJson (SpreadRes a) where
   decodeJson = decodeSpreadRes decodeJson
+
+encodeSpreadRes :: forall a. (a -> Json) -> (SpreadRes a) -> Json
+encodeSpreadRes encoder =
+  unwrap
+    >>> mapWithIndex (\idx a -> Tuple ("_" <> show idx) (encoder a))
+    >>> Object.fromFoldable
+    >>> Argonaut.fromObject
+
+instance encodeHasuraSpreadRes :: EncodeHasura a => EncodeHasura (SpreadRes a) where
+  encodeHasura = encodeSpreadRes encodeHasura
+
+instance encodeJsonSpreadRes :: EncodeJson a => EncodeJson (SpreadRes a) where
+  encodeJson = encodeSpreadRes encodeJson