Make all exports explicit

src/Language/GraphQL/AST.hs

@@ -2,8 +2,37 @@
 --   <https://facebook.github.io/graphql/ Facebook's GraphQL Specification>.
 --
 -- Target AST for Parser.
-
-module Language.GraphQL.AST where
+module Language.GraphQL.AST
+    ( Alias
+    , Argument(..)
+    , Arguments
+    , DefaultValue
+    , Definition(..)
+    , Directive(..)
+    , Directives
+    , Document
+    , Field(..)
+    , FragmentDefinition(..)
+    , FragmentName
+    , FragmentSpread(..)
+    , InlineFragment(..)
+    , ListValue
+    , Name
+    , NonNullType(..)
+    , ObjectField(..)
+    , ObjectValue
+    , OperationDefinition(..)
+    , OperationType(..)
+    , Selection(..)
+    , SelectionSet
+    , SelectionSetOpt
+    , Type(..)
+    , TypeCondition
+    , Value(..)
+    , Variable
+    , VariableDefinition(..)
+    , VariableDefinitions
+    ) where
 
 import Data.Int (Int32)
 import Data.List.NonEmpty (NonEmpty)

src/Language/GraphQL/AST/Core.hs

@@ -1,5 +1,13 @@
 -- | This is the AST meant to be executed.
-module Language.GraphQL.AST.Core where
+module Language.GraphQL.AST.Core
+    ( Argument(..)
+    , Document
+    , Field(..)
+    , Name
+    , ObjectField(..)
+    , Operation(..)
+    , Value(..)
+    ) where
 
 import Data.Int (Int32)
 import Data.List.NonEmpty (NonEmpty)

src/Language/GraphQL/AST/Transform.hs

@@ -1,5 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
-module Language.GraphQL.AST.Transform where
+module Language.GraphQL.AST.Transform
+    ( document
+    ) where
 
 import Control.Applicative (empty)
 import Control.Monad ((<=<))

src/Language/GraphQL/Encoder.hs

@@ -1,6 +1,9 @@
 {-# LANGUAGE OverloadedStrings #-}
 -- | This module defines a printer for the @GraphQL@ language.
-module Language.GraphQL.Encoder where
+module Language.GraphQL.Encoder
+    ( document
+    , spaced
+    ) where
 
 import Data.Foldable (fold)
 import Data.Monoid ((<>))

src/Language/GraphQL/Error.hs

@@ -1,12 +1,12 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Language.GraphQL.Error
-  ( parseError
-  , CollectErrsT
-  , addErr
-  , addErrMsg
-  , runCollectErrs
-  , runAppendErrs
-  ) where
+    ( parseError
+    , CollectErrsT
+    , addErr
+    , addErrMsg
+    , runCollectErrs
+    , runAppendErrs
+    ) where
 
 import qualified Data.Aeson as Aeson
 import Data.Text (Text, pack)

src/Language/GraphQL/Execute.hs

@@ -2,7 +2,9 @@
 
 -- | This module provides the function to execute a @GraphQL@ request --
 --   according to a 'Schema'.
-module Language.GraphQL.Execute (execute) where
+module Language.GraphQL.Execute
+    ( execute
+    ) where
 
 import Control.Monad.IO.Class (MonadIO)
 import qualified Data.List.NonEmpty as NE

src/Language/GraphQL/Parser.hs

@@ -1,6 +1,8 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE OverloadedStrings #-}
-module Language.GraphQL.Parser where
+module Language.GraphQL.Parser
+    ( document
+    ) where
 
 import Control.Applicative ( Alternative(..)
                            , optional

src/Language/GraphQL/Schema.hs

@@ -3,27 +3,27 @@
 -- | This module provides a representation of a @GraphQL@ Schema in addition to
 --   functions for defining and manipulating Schemas.
 module Language.GraphQL.Schema
-  ( Resolver
-  , Schema
-  , Subs
-  , object
-  , objectA
-  , scalar
-  , scalarA
-  , enum
-  , enumA
-  , resolve
-  , wrappedEnum
-  , wrappedEnumA
-  , wrappedObject
-  , wrappedObjectA
-  , wrappedScalar
-  , wrappedScalarA
-  -- * AST Reexports
-  , Field
-  , Argument(..)
-  , Value(..)
-  ) where
+    ( Resolver
+    , Schema
+    , Subs
+    , object
+    , objectA
+    , scalar
+    , scalarA
+    , enum
+    , enumA
+    , resolve
+    , wrappedEnum
+    , wrappedEnumA
+    , wrappedObject
+    , wrappedObjectA
+    , wrappedScalar
+    , wrappedScalarA
+    -- * AST Reexports
+    , Field
+    , Argument(..)
+    , Value(..)
+    ) where
 
 import Control.Monad.IO.Class (MonadIO(..))
 import Control.Monad.Trans.Class (lift)

src/Language/GraphQL/Trans.hs

@@ -1,4 +1,6 @@
-module Language.GraphQL.Trans where
+module Language.GraphQL.Trans
+    ( ActionT(..)
+    ) where
 
 import Control.Applicative (Alternative(..))
 import Control.Monad (MonadPlus(..))