From c70d2bfd3c1d47f36f68b7ceefc99a09180fc499 Mon Sep 17 00:00:00 2001
From: Theophile Batoz <theophile.batoz@gmail.com>
Date: Sun, 16 Dec 2018 18:39:08 +0100
Subject: [PATCH] feat: new datatype for post requests

---
 src/GraphQL/Internal/Execution.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/GraphQL/Internal/Execution.hs b/src/GraphQL/Internal/Execution.hs
index 714a212..f739034 100644
--- a/src/GraphQL/Internal/Execution.hs
+++ b/src/GraphQL/Internal/Execution.hs
@@ -18,6 +18,7 @@ module GraphQL.Internal.Execution
 
 import Protolude
 
+import qualified Data.Aeson as Aeson
 import qualified Data.Map as Map
 import GraphQL.Value
   ( Name
@@ -109,3 +110,7 @@ instance GraphQLError ExecutionError where
 -- GraphQL allows the values of variables to be specified, but doesn't provide
 -- a way for doing so in the language.
 type VariableValues = Map Variable Value
+
+-- | The raw (textual and/or aeson based) version of the 'Request' datatype.
+-- See <http://graphql.org/learn/serving-over-http/#post-request>.
+data RawPostRequest = RawPostRequest Text (Maybe Text) Aeson.Object deriving (Eq, Show)