mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 04:51:35 +03:00
b167120f96
We'll see if this improves compile times at all, but I think it's worth doing as at least the most minimal form of module documentation. This was accomplished by first compiling everything with -ddump-minimal-imports, and then a bunch of scripting (with help from ormolu) **EDIT** it doesn't seem to improve CI compile times but the noise floor is high as it looks like we're not caching library dependencies anymore PR-URL: https://github.com/hasura/graphql-engine-mono/pull/2730 GitOrigin-RevId: 667eb8de1e0f1af70420cbec90402922b8b84cb4
62 lines
1.9 KiB
Haskell
62 lines
1.9 KiB
Haskell
module Hasura.GraphQL.Parser.TestUtils
|
|
( TestMonad (..),
|
|
fakeScalar,
|
|
fakeInputFieldValue,
|
|
fakeDirective,
|
|
)
|
|
where
|
|
|
|
import Data.HashMap.Strict qualified as M
|
|
import Data.List.NonEmpty qualified as NE
|
|
import Data.Text qualified as T
|
|
import Hasura.GraphQL.Parser.Class.Parse
|
|
import Hasura.GraphQL.Parser.Schema
|
|
import Hasura.Prelude
|
|
import Language.GraphQL.Draft.Syntax qualified as G
|
|
|
|
-- test monad
|
|
|
|
newtype TestMonad a = TestMonad {runTest :: Either Text a}
|
|
deriving (Functor, Applicative, Monad)
|
|
|
|
instance MonadParse TestMonad where
|
|
withPath = const id
|
|
parseErrorWith = const $ TestMonad . Left
|
|
|
|
-- values generation
|
|
|
|
fakeScalar :: G.Name -> G.Value Variable
|
|
fakeScalar =
|
|
G.unName >>> \case
|
|
"Int" -> G.VInt 4242
|
|
"Boolean" -> G.VBoolean False
|
|
name -> error $ "no test value implemented for scalar " <> T.unpack name
|
|
|
|
fakeInputFieldValue :: InputFieldInfo -> G.Value Variable
|
|
fakeInputFieldValue = \case
|
|
IFOptional t _ -> fromT t
|
|
IFRequired nnt -> fromNNT nnt
|
|
where
|
|
fromT :: forall k. ('Input <: k) => Type k -> G.Value Variable
|
|
fromT = \case
|
|
NonNullable nnt -> fromNNT nnt
|
|
Nullable nnt -> fromNNT nnt
|
|
fromNNT :: forall k. ('Input <: k) => NonNullableType k -> G.Value Variable
|
|
fromNNT = \case
|
|
TList t -> G.VList [fromT t, fromT t]
|
|
TNamed (Definition name _ _ info) -> case info of
|
|
TIScalar -> fakeScalar name
|
|
TIEnum ei -> G.VEnum $ G.EnumValue $ dName $ NE.head ei
|
|
TIInputObject (InputObjectInfo oi) -> G.VObject $
|
|
M.fromList $ do
|
|
Definition fieldName _ _ fieldInfo <- oi
|
|
pure (fieldName, fakeInputFieldValue fieldInfo)
|
|
_ -> error "impossible"
|
|
|
|
fakeDirective :: DirectiveInfo -> G.Directive Variable
|
|
fakeDirective DirectiveInfo {..} =
|
|
G.Directive diName $
|
|
M.fromList $
|
|
diArguments <&> \(Definition argName _ _ argInfo) ->
|
|
(argName, fakeInputFieldValue argInfo)
|