diff --git a/Data/GraphQL/Printer.hs b/Data/GraphQL/Encoder.hs similarity index 99% rename from Data/GraphQL/Printer.hs rename to Data/GraphQL/Encoder.hs index dd0e5de..9eed849 100644 --- a/Data/GraphQL/Printer.hs +++ b/Data/GraphQL/Encoder.hs @@ -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 ((<$>)) diff --git a/graphql.cabal b/graphql.cabal index a9e7f66..3574583 100644 --- a/graphql.cabal +++ b/graphql.cabal @@ -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 diff --git a/tests/tasty.hs b/tests/tasty.hs index 32bdd8d..a034a79 100644 --- a/tests/tasty.hs +++ b/tests/tasty.hs @@ -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