mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-17 20:41:49 +03:00
ec8b2c80b5
* remove phase one/two distinction and hdbquery typeclass * move extensions to default-extensions * switch to LazyTx which only acquires a connection if needed * move defns from TH module into Ops module * remove tojson orphan instance for http exception * remove orphan instance for dmlp1 * getTopLevelNodes will not throw any exceptions
96 lines
3.3 KiB
Haskell
96 lines
3.3 KiB
Haskell
module Hasura.GraphQL.Resolve
|
|
( resolveSelSet
|
|
) where
|
|
|
|
import Hasura.Prelude
|
|
|
|
import qualified Data.Aeson as J
|
|
import qualified Data.ByteString.Lazy as BL
|
|
import qualified Data.HashMap.Strict as Map
|
|
import qualified Database.PG.Query as Q
|
|
import qualified Language.GraphQL.Draft.Syntax as G
|
|
|
|
|
|
import Hasura.GraphQL.Resolve.Context
|
|
import Hasura.GraphQL.Resolve.Introspect
|
|
import Hasura.GraphQL.Schema
|
|
import Hasura.GraphQL.Transport.HTTP.Protocol
|
|
import Hasura.GraphQL.Validate.Field
|
|
import Hasura.RQL.Types
|
|
import Hasura.SQL.Types
|
|
|
|
import qualified Hasura.GraphQL.Resolve.Insert as RI
|
|
import qualified Hasura.GraphQL.Resolve.Mutation as RM
|
|
import qualified Hasura.GraphQL.Resolve.Select as RS
|
|
|
|
-- {-# SCC buildTx #-}
|
|
buildTx :: UserInfo -> GCtx -> Field -> Q.TxE QErr BL.ByteString
|
|
buildTx userInfo gCtx fld = do
|
|
opCxt <- getOpCtx $ _fName fld
|
|
join $ fmap fst $ runConvert (fldMap, orderByCtx, insCtxMap) $ case opCxt of
|
|
|
|
OCSelect tn permFilter permLimit hdrs ->
|
|
validateHdrs hdrs >> RS.convertSelect tn permFilter permLimit fld
|
|
|
|
OCSelectPkey tn permFilter hdrs ->
|
|
validateHdrs hdrs >> RS.convertSelectByPKey tn permFilter fld
|
|
-- RS.convertSelect tn permFilter fld
|
|
OCSelectAgg tn permFilter permLimit hdrs ->
|
|
validateHdrs hdrs >> RS.convertAggSelect tn permFilter permLimit fld
|
|
OCInsert tn hdrs ->
|
|
validateHdrs hdrs >> RI.convertInsert roleName tn fld
|
|
-- RM.convertInsert (tn, vn) cols fld
|
|
OCUpdate tn permFilter hdrs ->
|
|
validateHdrs hdrs >> RM.convertUpdate tn permFilter fld
|
|
-- RM.convertUpdate tn permFilter fld
|
|
OCDelete tn permFilter hdrs ->
|
|
validateHdrs hdrs >> RM.convertDelete tn permFilter fld
|
|
-- RM.convertDelete tn permFilter fld
|
|
where
|
|
roleName = userRole userInfo
|
|
opCtxMap = _gOpCtxMap gCtx
|
|
fldMap = _gFields gCtx
|
|
orderByCtx = _gOrdByCtx gCtx
|
|
insCtxMap = _gInsCtxMap gCtx
|
|
|
|
getOpCtx f =
|
|
onNothing (Map.lookup f opCtxMap) $ throw500 $
|
|
"lookup failed: opctx: " <> showName f
|
|
|
|
validateHdrs hdrs = do
|
|
let receivedVars = userVars userInfo
|
|
forM_ hdrs $ \hdr ->
|
|
unless (isJust $ getVarVal hdr receivedVars) $
|
|
throw400 NotFound $ hdr <<> " header is expected but not found"
|
|
|
|
-- {-# SCC resolveFld #-}
|
|
resolveFld
|
|
:: (MonadTx m)
|
|
=> UserInfo -> GCtx
|
|
-> G.OperationType
|
|
-> Field
|
|
-> m BL.ByteString
|
|
resolveFld userInfo gCtx opTy fld =
|
|
case _fName fld of
|
|
"__type" -> J.encode <$> runReaderT (typeR fld) gCtx
|
|
"__schema" -> J.encode <$> runReaderT (schemaR fld) gCtx
|
|
"__typename" -> return $ J.encode $ mkRootTypeName opTy
|
|
_ -> liftTx $ buildTx userInfo gCtx fld
|
|
where
|
|
mkRootTypeName :: G.OperationType -> Text
|
|
mkRootTypeName = \case
|
|
G.OperationTypeQuery -> "query_root"
|
|
G.OperationTypeMutation -> "mutation_root"
|
|
G.OperationTypeSubscription -> "subscription_root"
|
|
|
|
resolveSelSet
|
|
:: (MonadTx m)
|
|
=> UserInfo -> GCtx
|
|
-> G.OperationType
|
|
-> SelSet
|
|
-> m BL.ByteString
|
|
resolveSelSet userInfo gCtx opTy fields =
|
|
fmap mkJSONObj $ forM (toList fields) $ \fld -> do
|
|
fldResp <- resolveFld userInfo gCtx opTy fld
|
|
return (G.unName $ G.unAlias $ _fAlias fld, fldResp)
|