@@ -50,7 +50,7 @@ type ParsingErrorInfo =
5050 , jsonParsingError :: NonEmptyList ForeignError
5151 }
5252
53−type GraphQLClient'
53+type GraphQLClient''
5454 (operation :: GraphQL)
5555 (gql :: Symbol)
5656 (i :: Row Type)
@@ -72,7 +72,27 @@ type GraphQLClient'
7272type GraphQLClient =
7373 forall (operation :: GraphQL)
7474 (gql :: Symbol) (i :: Row Type) (o :: Row Type) (m :: Type -> Type) (e :: Type)
75− . GraphQLClient' operation gql i o m e
75+ . GraphQLReqRes operation gql i o
76+ => IsSymbol gql
77+ => JSON.WriteForeign { | i }
78+ => JSON.ReadForeign { | o }
79+ => MonadAff m
80+ => MonadThrow e m
81+ => (NetworkErrorInfo -> e)
82+ -> (ParsingErrorInfo -> e)
83+ -> Gql operation
84+ -> Record i
85+ -> m { | o }
86+
87+type GraphQLClientAff =
88+ forall (operation :: GraphQL) (gql :: Symbol) (i :: Row Type) (o :: Row Type)
89+ . GraphQLReqRes operation gql i o
90+ => IsSymbol gql
91+ => JSON.WriteForeign { | i }
92+ => JSON.ReadForeign { | o }
93+ => Gql operation
94+ -> Record i
95+ -> Aff { | o }
7696
7797graphQL
7898 :: Endpoint