ddd/airgql
ddd/airgql
1
Fork 0
mirror of https://github.com/Airsequel/AirGQL.git synced 2025-09-22 20:14:31 +02:00
Code Activity

Tweak introspection to reflect previous change

Browse source
This commit is contained in:
prescientmoon 2024-05-04 00:27:26 +02:00
commit 51bf1ebd4d
1 changed files with 41 additions and 36 deletions

77
source/AirGQL/Introspection.hs
View file

@ -1326,6 +1326,10 @@ getSchemaFieldOutput dbId conn accessMode tables = do
ReadOnly -> Null ReadOnly -> Null
WriteOnly -> obj WriteOnly -> obj
ReadAndWrite -> obj ReadAndWrite -> obj
requiresRead obj = case accessMode of
ReadOnly -> Null
WriteOnly -> obj
ReadAndWrite -> obj
pure $ pure $
customRowTypes customRowTypes
@ -1379,42 +1383,43 @@ getSchemaFieldOutput dbId conn accessMode tables = do
] ]
) )
] ]
, Object $ , requiresRead $
HashMap.fromList Object $
[ ("name", "returning") HashMap.fromList
, [ ("name", "returning")
( "type" ,
, Object $ ( "type"
HashMap.fromList , Object $
[ ("kind", "NON_NULL") HashMap.fromList
, [ ("kind", "NON_NULL")
( "ofType" ,
, Object $ ( "ofType"
HashMap.fromList , Object $
[ ("kind", "LIST") HashMap.fromList
, [ ("kind", "LIST")
( "ofType" ,
, Object $ ( "ofType"
HashMap.fromList , Object $
[ ("kind", "NON_NULL") HashMap.fromList
, [ ("kind", "NON_NULL")
( "ofType" ,
, Object $ ( "ofType"
HashMap.fromList , Object $
[ ("kind", "OBJECT") HashMap.fromList
, [ ("kind", "OBJECT")
( "name" ,
, String $ doubleXEncodeGql table.name <> "_row" ( "name"
) , String $ doubleXEncodeGql table.name <> "_row"
] )
) ]
] )
) ]
] )
) ]
] )
) ]
] )
]
] ]
) )
] ]