Rename Data.GraphQL.Printer
-> Data.GraphQL.Encoder
This commit is contained in:
parent
a4db99ea5d
commit
af42e5577c
@ -1,6 +1,6 @@
|
||||
{-# LANGUAGE CPP #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
module Data.GraphQL.Printer where
|
||||
module Data.GraphQL.Encoder where
|
||||
|
||||
#if !MIN_VERSION_base(4,8,0)
|
||||
import Control.Applicative ((<$>))
|
@ -23,8 +23,8 @@ library
|
||||
default-language: Haskell2010
|
||||
ghc-options: -Wall
|
||||
exposed-modules: Data.GraphQL.AST
|
||||
Data.GraphQL.Encoder
|
||||
Data.GraphQL.Parser
|
||||
Data.GraphQL.Printer
|
||||
build-depends: base >=4.7 && < 5,
|
||||
text >=0.11.3.1,
|
||||
attoparsec >=0.10.4.0
|
||||
|
@ -12,7 +12,7 @@ import Test.Tasty (defaultMain)
|
||||
import Test.Tasty.HUnit
|
||||
|
||||
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)
|
||||
|
||||
@ -23,6 +23,6 @@ main = defaultMain =<< testCase "Kitchen Sink"
|
||||
expected = Text.readFile
|
||||
=<< getDataFileName "tests/data/kitchen-sink.min.graphql"
|
||||
|
||||
actual = either (error "Parsing error!") Printer.document
|
||||
actual = either (error "Parsing error!") Encoder.document
|
||||
<$> parseOnly Parser.document
|
||||
<$> expected
|
||||
|
Loading…
Reference in New Issue
Block a user