From eb90a4091c1f2586640ee49d6f91fc83c05239f6 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sun, 24 May 2020 13:51:00 +0200 Subject: Check point --- src/Language/GraphQL/Trans.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/Language/GraphQL/Trans.hs') diff --git a/src/Language/GraphQL/Trans.hs b/src/Language/GraphQL/Trans.hs index f09a8a0..3c3ffa4 100644 --- a/src/Language/GraphQL/Trans.hs +++ b/src/Language/GraphQL/Trans.hs @@ -15,6 +15,7 @@ import qualified Data.HashMap.Strict as HashMap import Data.Maybe (fromMaybe) import Data.Text (Text) import Language.GraphQL.AST.Core +import qualified Language.GraphQL.Type.In as In import Prelude hiding (lookup) -- | Resolution context holds resolver arguments. @@ -55,11 +56,11 @@ instance Monad m => MonadPlus (ActionT m) where mplus = (<|>) -- | Retrieves an argument by its name. If the argument with this name couldn't --- be found, returns 'Value.Null' (i.e. the argument is assumed to +-- be found, returns 'In.Null' (i.e. the argument is assumed to -- be optional then). -argument :: Monad m => Name -> ActionT m Value +argument :: Monad m => Name -> ActionT m In.Value argument argumentName = do argumentValue <- ActionT $ lift $ asks $ lookup . arguments - pure $ fromMaybe Null argumentValue + pure $ fromMaybe In.Null argumentValue where lookup (Arguments argumentMap) = HashMap.lookup argumentName argumentMap -- cgit v1.2.3