Make all exports explicit

This commit is contained in:
Eugen Wissner 2019-07-14 05:58:05 +02:00
parent eb40810f25
commit f3b8d9b74c
14 changed files with 116 additions and 43 deletions

View File

@ -1,5 +1,8 @@
-- | This module provides the functions to parse and execute @GraphQL@ queries.
module Language.GraphQL where
module Language.GraphQL
( graphql
, graphqlSubs
) where
import Control.Monad.IO.Class (MonadIO)
import qualified Data.Text as T

View File

@ -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)

View File

@ -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)

View File

@ -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 ((<=<))

View File

@ -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 ((<>))

View File

@ -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

View File

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

View File

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

View File

@ -1,4 +1,4 @@
resolver: lts-13.27
resolver: lts-13.28
packages:
- '.'
extra-deps: []

View File

@ -7,6 +7,6 @@ packages: []
snapshots:
- completed:
size: 500539
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/13/27.yaml
sha256: 690db832392afe55733b4c7023fd29b1b1c660ee42f1fb505b86b07394ca994e
original: lts-13.27
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/13/28.yaml
sha256: cdde1bfb38fdee21c6acb73d506e78f7e12e0a73892adbbbe56374ebef4d3adf
original: lts-13.28

View File

@ -1,5 +1,21 @@
{-# LANGUAGE OverloadedStrings #-}
module Test.StarWars.Data where
module Test.StarWars.Data
( Character
, appearsIn
, artoo
, getDroid
, getDroid'
, getEpisode
, getFriends
, getHero
, getHeroIO
, getHuman
, id_
, homePlanet
, name
, secretBackstory
, typeName
) where
import Data.Monoid (mempty)
import Control.Applicative ( Alternative(..)

View File

@ -1,6 +1,12 @@
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
module Test.StarWars.Schema where
module Test.StarWars.Schema
( character
, droid
, hero
, human
, schema
) where
import Control.Monad.Trans.Except (throwE)
import Control.Monad.Trans.Class (lift)