mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 21:12:09 +03:00
74 lines
2.0 KiB
Haskell
74 lines
2.0 KiB
Haskell
{-# LANGUAGE FlexibleContexts #-}
|
|
{-# LANGUAGE FlexibleInstances #-}
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Hasura.GraphQL.Validate.Context
|
|
( ValidationCtx(..)
|
|
, getFieldInfo
|
|
, getInpFieldInfo
|
|
, getTyInfo
|
|
, getTyInfoVE
|
|
, module Hasura.GraphQL.Utils
|
|
) where
|
|
|
|
import Hasura.Prelude
|
|
|
|
import qualified Data.HashMap.Strict as Map
|
|
import qualified Language.GraphQL.Draft.Syntax as G
|
|
|
|
import Data.Has
|
|
import Hasura.GraphQL.Utils
|
|
import Hasura.GraphQL.Validate.Types
|
|
import Hasura.RQL.Types
|
|
|
|
getFieldInfo
|
|
:: ( MonadError QErr m)
|
|
=> ObjTyInfo -> G.Name -> m ObjFldInfo
|
|
getFieldInfo oti fldName =
|
|
onNothing (Map.lookup fldName $ _otiFields oti) $ throwVE $
|
|
"field " <> showName fldName <>
|
|
" not found in type: " <> showNamedTy (_otiName oti)
|
|
|
|
getInpFieldInfo
|
|
:: ( MonadError QErr m)
|
|
=> InpObjTyInfo -> G.Name -> m G.GType
|
|
getInpFieldInfo tyInfo fldName =
|
|
fmap _iviType $ onNothing (Map.lookup fldName $ _iotiFields tyInfo) $
|
|
throwVE $ "field " <> showName fldName <>
|
|
" not found in type: " <> showNamedTy (_iotiName tyInfo)
|
|
|
|
data ValidationCtx
|
|
= ValidationCtx
|
|
{ _vcTypeMap :: !TypeMap
|
|
-- these are in the scope of the operation
|
|
, _vcVarVals :: !AnnVarVals
|
|
-- all the fragments
|
|
, _vcFragDefMap :: !FragDefMap
|
|
} deriving (Show, Eq)
|
|
|
|
instance Has TypeMap ValidationCtx where
|
|
getter = _vcTypeMap
|
|
modifier f ctx = ctx { _vcTypeMap = f $ _vcTypeMap ctx }
|
|
|
|
getTyInfo
|
|
:: ( MonadReader r m , Has TypeMap r
|
|
, MonadError QErr m)
|
|
=> G.NamedType
|
|
-> m TypeInfo
|
|
getTyInfo namedTy = do
|
|
tyMap <- asks getter
|
|
onNothing (Map.lookup namedTy tyMap) $
|
|
throw500 $ "type info not found for: " <> showNamedTy namedTy
|
|
|
|
getTyInfoVE
|
|
:: ( MonadReader r m , Has TypeMap r
|
|
, MonadError QErr m)
|
|
=> G.NamedType
|
|
-> m TypeInfo
|
|
getTyInfoVE namedTy = do
|
|
tyMap <- asks getter
|
|
onNothing (Map.lookup namedTy tyMap) $
|
|
throwVE $ "no such type exists in the schema: " <> showNamedTy namedTy
|