Rename Data.GraphQL.Printer -> Data.GraphQL.Encoder

This commit is contained in:
Danny Navarro 2015-09-22 14:23:18 +02:00
parent a4db99ea5d
commit af42e5577c
3 changed files with 4 additions and 4 deletions

View File

@ -1,6 +1,6 @@
{-# LANGUAGE CPP #-} {-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module Data.GraphQL.Printer where module Data.GraphQL.Encoder where
#if !MIN_VERSION_base(4,8,0) #if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>)) import Control.Applicative ((<$>))

View File

@ -23,8 +23,8 @@ library
default-language: Haskell2010 default-language: Haskell2010
ghc-options: -Wall ghc-options: -Wall
exposed-modules: Data.GraphQL.AST exposed-modules: Data.GraphQL.AST
Data.GraphQL.Encoder
Data.GraphQL.Parser Data.GraphQL.Parser
Data.GraphQL.Printer
build-depends: base >=4.7 && < 5, build-depends: base >=4.7 && < 5,
text >=0.11.3.1, text >=0.11.3.1,
attoparsec >=0.10.4.0 attoparsec >=0.10.4.0

View File

@ -12,7 +12,7 @@ import Test.Tasty (defaultMain)
import Test.Tasty.HUnit import Test.Tasty.HUnit
import qualified Data.GraphQL.Parser as Parser import qualified Data.GraphQL.Parser as Parser
import qualified Data.GraphQL.Printer as Printer import qualified Data.GraphQL.Encoder as Encoder
import Paths_graphql (getDataFileName) import Paths_graphql (getDataFileName)
@ -23,6 +23,6 @@ main = defaultMain =<< testCase "Kitchen Sink"
expected = Text.readFile expected = Text.readFile
=<< getDataFileName "tests/data/kitchen-sink.min.graphql" =<< getDataFileName "tests/data/kitchen-sink.min.graphql"
actual = either (error "Parsing error!") Printer.document actual = either (error "Parsing error!") Encoder.document
<$> parseOnly Parser.document <$> parseOnly Parser.document
<$> expected <$> expected