From 0cbe69736be1ce4e7e4d82ba70f97d5a2bdcdd0c Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Tue, 17 Dec 2019 09:03:18 +0100
Subject: [PATCH] Move Execute.Directive to Type.Directive

Just to roughly follow the structure of the reference implementation.
---
 package.yaml                                        | 2 +-
 src/Language/GraphQL/Execute/Transform.hs           | 2 +-
 src/Language/GraphQL/{Execute => Type}/Directive.hs | 2 +-
 stack.yaml                                          | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)
 rename src/Language/GraphQL/{Execute => Type}/Directive.hs (97%)

diff --git a/package.yaml b/package.yaml
index dff96d4..88a7238 100644
--- a/package.yaml
+++ b/package.yaml
@@ -38,7 +38,7 @@ library:
   source-dirs: src
   other-modules:
     - Language.GraphQL.Execute.Transform
-    - Language.GraphQL.Execute.Directive
+    - Language.GraphQL.Type.Directive
 
 tests:
   tasty:
diff --git a/src/Language/GraphQL/Execute/Transform.hs b/src/Language/GraphQL/Execute/Transform.hs
index 9bcb3b2..882b324 100644
--- a/src/Language/GraphQL/Execute/Transform.hs
+++ b/src/Language/GraphQL/Execute/Transform.hs
@@ -19,8 +19,8 @@ import qualified Data.List.NonEmpty as NonEmpty
 import Data.Sequence (Seq, (<|), (><))
 import qualified Language.GraphQL.AST as Full
 import qualified Language.GraphQL.AST.Core as Core
-import qualified Language.GraphQL.Execute.Directive as Directive
 import qualified Language.GraphQL.Schema as Schema
+import qualified Language.GraphQL.Type.Directive as Directive
 
 -- | Associates a fragment name with a list of 'Core.Field's.
 data Replacement = Replacement
diff --git a/src/Language/GraphQL/Execute/Directive.hs b/src/Language/GraphQL/Type/Directive.hs
similarity index 97%
rename from src/Language/GraphQL/Execute/Directive.hs
rename to src/Language/GraphQL/Type/Directive.hs
index 733b6cf..afd97da 100644
--- a/src/Language/GraphQL/Execute/Directive.hs
+++ b/src/Language/GraphQL/Type/Directive.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 
-module Language.GraphQL.Execute.Directive
+module Language.GraphQL.Type.Directive
     ( selection
     ) where
 
diff --git a/stack.yaml b/stack.yaml
index 90cad4f..d488fa3 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -1,4 +1,4 @@
-resolver: lts-14.16
+resolver: lts-14.17
 
 packages:
 - .