From dd8f312cb3b0478a3f1e6215c73f47d49180be65 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 1 Jan 2020 10:58:11 +0100
Subject: Rewrite argument list to argument map

---
 src/Language/GraphQL/Schema.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'src/Language/GraphQL/Schema.hs')

diff --git a/src/Language/GraphQL/Schema.hs b/src/Language/GraphQL/Schema.hs
index a6c37db..8bdf605 100644
--- a/src/Language/GraphQL/Schema.hs
+++ b/src/Language/GraphQL/Schema.hs
@@ -12,7 +12,6 @@ module Language.GraphQL.Schema
     , wrappedScalar
     -- * AST Reexports
     , Field
-    , Argument(..)
     , Value(..)
     ) where
 
@@ -90,11 +89,7 @@ resolveFieldValue f resolveRight fld@(Field _ _ args _) = do
     result <- lift $ reader . runExceptT . runActionT $ f
     either resolveLeft (resolveRight fld) result
       where
-        reader = flip runReaderT
-            $ Context
-            $ HashMap.fromList
-            $ argumentToTuple <$> args
-        argumentToTuple (Argument name value) = (name, value)
+        reader = flip runReaderT $ Context {arguments=args}
         resolveLeft err = do
             _ <- addErrMsg err
             return $ HashMap.singleton (aliasOrName fld) Aeson.Null
-- 
cgit v1.2.3