@@ -68,6 +68,7 @@ data OperationType = Query | Mutation deriving (Eq, Show)
 | 
			
		||||
-- | "Top-level" selection, selection on a operation.
 | 
			
		||||
type SelectionSet = NonEmpty Selection
 | 
			
		||||
 | 
			
		||||
-- | Field selection.
 | 
			
		||||
type SelectionSetOpt = [Selection]
 | 
			
		||||
 | 
			
		||||
-- | Single selection element.
 | 
			
		||||
 
 | 
			
		||||
@@ -1,4 +1,8 @@
 | 
			
		||||
{-# LANGUAGE OverloadedStrings #-}
 | 
			
		||||
 | 
			
		||||
-- | After the document is parsed, before getting executed the AST is
 | 
			
		||||
--   transformed into a similar, simpler AST. This module is responsible for
 | 
			
		||||
--   this transformation.
 | 
			
		||||
module Language.GraphQL.AST.Transform
 | 
			
		||||
    ( document
 | 
			
		||||
    ) where
 | 
			
		||||
 
 | 
			
		||||
@@ -31,11 +31,11 @@ data Formatter
 | 
			
		||||
    = Minified
 | 
			
		||||
    | Pretty Word
 | 
			
		||||
 | 
			
		||||
-- Constructs a formatter for pretty printing.
 | 
			
		||||
-- | Constructs a formatter for pretty printing.
 | 
			
		||||
pretty :: Formatter
 | 
			
		||||
pretty = Pretty 0
 | 
			
		||||
 | 
			
		||||
-- Constructs a formatter for minifying.
 | 
			
		||||
-- | Constructs a formatter for minifying.
 | 
			
		||||
minified :: Formatter
 | 
			
		||||
minified = Minified
 | 
			
		||||
 | 
			
		||||
 
 | 
			
		||||
@@ -1,5 +1,7 @@
 | 
			
		||||
{-# LANGUAGE LambdaCase #-}
 | 
			
		||||
{-# LANGUAGE OverloadedStrings #-}
 | 
			
		||||
 | 
			
		||||
-- | @GraphQL@ document parser.
 | 
			
		||||
module Language.GraphQL.Parser
 | 
			
		||||
    ( document
 | 
			
		||||
    ) where
 | 
			
		||||
 
 | 
			
		||||
@@ -1,3 +1,4 @@
 | 
			
		||||
-- | Monad transformer stack used by the @GraphQL@ resolvers.
 | 
			
		||||
module Language.GraphQL.Trans
 | 
			
		||||
    ( ActionT(..)
 | 
			
		||||
    ) where
 | 
			
		||||
 
 | 
			
		||||
@@ -1,4 +1,4 @@
 | 
			
		||||
resolver: lts-14.6
 | 
			
		||||
resolver: lts-14.7
 | 
			
		||||
packages:
 | 
			
		||||
- '.'
 | 
			
		||||
extra-deps: []
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user