Change the main namespace to Language.GraphQL

9 files changed, 27 insertions, 31 deletions

diff --git a/src/Data/GraphQL.hs b/src/Language/GraphQL.hs
index 47ca2b0..8ed29cf 100644
--- a/src/Data/GraphQL.hs
+++ b/src/Language/GraphQL.hs
@@ -1,5 +1,5 @@
 -- | This module provides the functions to parse and execute @GraphQL@ queries.
-module Data.GraphQL where
+module Language.GraphQL where
 
 import Control.Monad (MonadPlus)
 
@@ -10,11 +10,11 @@ import Text.Megaparsec ( errorBundlePretty
                        , parse
                        )
 
-import Data.GraphQL.Execute
-import Data.GraphQL.Parser
-import Data.GraphQL.Schema
+import Language.GraphQL.Execute
+import Language.GraphQL.Parser
+import Language.GraphQL.Schema
 
-import Data.GraphQL.Error
+import Language.GraphQL.Error
 
 -- | Takes a 'Schema' and text representing a @GraphQL@ request document.
 --   If the text parses correctly as a @GraphQL@ query the query is
diff --git a/src/Data/GraphQL/AST.hs b/src/Language/GraphQL/AST.hs
index 3378655..618bd4b 100644
--- a/src/Data/GraphQL/AST.hs
+++ b/src/Language/GraphQL/AST.hs
@@ -3,7 +3,7 @@
 --
 -- Target AST for Parser.
 
-module Data.GraphQL.AST where
+module Language.GraphQL.AST where
 
 import Data.Int (Int32)
 import Data.List.NonEmpty (NonEmpty)
diff --git a/src/Data/GraphQL/AST/Core.hs b/src/Language/GraphQL/AST/Core.hs
index f0c617c..be432a8 100644
--- a/src/Data/GraphQL/AST/Core.hs
+++ b/src/Language/GraphQL/AST/Core.hs
@@ -1,5 +1,5 @@
 -- | This is the AST meant to be executed.
-module Data.GraphQL.AST.Core where
+module Language.GraphQL.AST.Core where
 
 import Data.Int (Int32)
 import Data.List.NonEmpty (NonEmpty)
diff --git a/src/Data/GraphQL/AST/Transform.hs b/src/Language/GraphQL/AST/Transform.hs
index af55772..22a9c4c 100644
--- a/src/Data/GraphQL/AST/Transform.hs
+++ b/src/Language/GraphQL/AST/Transform.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE OverloadedStrings #-}
-module Data.GraphQL.AST.Transform where
+module Language.GraphQL.AST.Transform where
 
 import Control.Applicative (empty)
 import Control.Monad ((<=<))
@@ -8,12 +8,10 @@ import Data.Either (partitionEithers)
 import Data.Foldable (fold, foldMap)
 import qualified Data.List.NonEmpty as NonEmpty
 import Data.Monoid (Alt(Alt,getAlt), (<>))
-
 import Data.Text (Text)
-
-import qualified Data.GraphQL.AST as Full
-import qualified Data.GraphQL.AST.Core as Core
-import qualified Data.GraphQL.Schema as Schema
+import qualified Language.GraphQL.AST as Full
+import qualified Language.GraphQL.AST.Core as Core
+import qualified Language.GraphQL.Schema as Schema
 
 type Name = Text
 
diff --git a/src/Data/GraphQL/Encoder.hs b/src/Language/GraphQL/Encoder.hs
index 924bdea..de5e2bb 100644
--- a/src/Data/GraphQL/Encoder.hs
+++ b/src/Language/GraphQL/Encoder.hs
@@ -1,14 +1,12 @@
 {-# LANGUAGE OverloadedStrings #-}
 -- | This module defines a printer for the @GraphQL@ language.
-module Data.GraphQL.Encoder where
+module Language.GraphQL.Encoder where
 
 import Data.Foldable (fold)
 import Data.Monoid ((<>))
 import qualified Data.List.NonEmpty as NonEmpty (toList)
-
 import Data.Text (Text, cons, intercalate, pack, snoc)
-
-import Data.GraphQL.AST
+import Language.GraphQL.AST
 
 -- * Document
 
diff --git a/src/Data/GraphQL/Error.hs b/src/Language/GraphQL/Error.hs
index 08d1622..c2338b1 100644
--- a/src/Data/GraphQL/Error.hs
+++ b/src/Language/GraphQL/Error.hs
@@ -1,5 +1,5 @@
 {-# LANGUAGE OverloadedStrings #-}
-module Data.GraphQL.Error
+module Language.GraphQL.Error
   ( parseError
   , CollectErrsT
   , addErr
diff --git a/src/Data/GraphQL/Execute.hs b/src/Language/GraphQL/Execute.hs
index e6bb1c9..eb53bba 100644
--- a/src/Data/GraphQL/Execute.hs
+++ b/src/Language/GraphQL/Execute.hs
@@ -1,18 +1,18 @@
 {-# LANGUAGE OverloadedStrings #-}
 -- | This module provides the function to execute a @GraphQL@ request --
 --   according to a 'Schema'.
-module Data.GraphQL.Execute (execute) where
+module Language.GraphQL.Execute (execute) where
 
 import Control.Monad (MonadPlus(..))
-import Data.GraphQL.Error
 import qualified Data.List.NonEmpty as NE
 import Data.List.NonEmpty (NonEmpty((:|)))
 import qualified Data.Aeson as Aeson
-import qualified Data.GraphQL.AST as AST
-import qualified Data.GraphQL.AST.Core as AST.Core
-import qualified Data.GraphQL.AST.Transform as Transform
-import Data.GraphQL.Schema (Schema)
-import qualified Data.GraphQL.Schema as Schema
+import qualified Language.GraphQL.AST as AST
+import qualified Language.GraphQL.AST.Core as AST.Core
+import qualified Language.GraphQL.AST.Transform as Transform
+import Language.GraphQL.Error
+import Language.GraphQL.Schema (Schema)
+import qualified Language.GraphQL.Schema as Schema
 
 -- | Takes a 'Schema', a variable substitution function ('Schema.Subs'), and a
 --   @GraphQL@ 'document'. The substitution is applied to the document using
diff --git a/src/Data/GraphQL/Parser.hs b/src/Language/GraphQL/Parser.hs
index fc04595..215da73 100644
--- a/src/Data/GraphQL/Parser.hs
+++ b/src/Language/GraphQL/Parser.hs
@@ -1,13 +1,13 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE OverloadedStrings #-}
-module Data.GraphQL.Parser where
+module Language.GraphQL.Parser where
 
 import Control.Applicative ( Alternative(..)
                            , optional
                            )
-import Data.GraphQL.AST
-import Language.GraphQL.Lexer
 import Data.List.NonEmpty (NonEmpty(..))
+import Language.GraphQL.AST
+import Language.GraphQL.Lexer
 import Text.Megaparsec ( lookAhead
                        , option
                        , try
diff --git a/src/Data/GraphQL/Schema.hs b/src/Language/GraphQL/Schema.hs
index 56a9061..5569155 100644
--- a/src/Data/GraphQL/Schema.hs
+++ b/src/Language/GraphQL/Schema.hs
@@ -2,7 +2,7 @@
 
 -- | This module provides a representation of a @GraphQL@ Schema in addition to
 --   functions for defining and manipulating Schemas.
-module Data.GraphQL.Schema
+module Language.GraphQL.Schema
   ( Resolver
   , Schema
   , Subs
@@ -31,7 +31,6 @@ import Control.Monad.Trans.Except (runExceptT)
 import Data.Foldable ( find
                      , fold
                      )
-import Data.GraphQL.Error
 import Data.List.NonEmpty (NonEmpty)
 import Data.Maybe (fromMaybe)
 import qualified Data.Aeson as Aeson
@@ -39,9 +38,10 @@ import Data.HashMap.Strict (HashMap)
 import qualified Data.HashMap.Strict as HashMap
 import Data.Text (Text)
 import qualified Data.Text as T
+import Language.GraphQL.Error
 import Language.GraphQL.Trans
 import Language.GraphQL.Type
-import Data.GraphQL.AST.Core
+import Language.GraphQL.AST.Core
 
 -- | A GraphQL schema.
 --   @f@ is usually expected to be an instance of 'Alternative'.