From a3354e7f587a8668da8e15f47a95d679aadfa360 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Mon, 5 Aug 2019 09:00:11 +0200 Subject: Make all encoder functions return lazy text --- tests/Test/KitchenSinkSpec.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'tests/Test/KitchenSinkSpec.hs') diff --git a/tests/Test/KitchenSinkSpec.hs b/tests/Test/KitchenSinkSpec.hs index 9950460..ae3c2c4 100644 --- a/tests/Test/KitchenSinkSpec.hs +++ b/tests/Test/KitchenSinkSpec.hs @@ -5,6 +5,7 @@ module Test.KitchenSinkSpec ) where import qualified Data.Text.IO as Text.IO +import qualified Data.Text.Lazy.IO as Text.Lazy.IO import qualified Language.GraphQL.Encoder as Encoder import qualified Language.GraphQL.Parser as Parser import Paths_graphql (getDataFileName) @@ -26,7 +27,7 @@ spec = describe "Kitchen Sink" $ do dataFileName <- getDataFileName "tests/data/kitchen-sink.graphql" minFileName <- getDataFileName "tests/data/kitchen-sink.min.graphql" actual <- Text.IO.readFile dataFileName - expected <- Text.IO.readFile minFileName + expected <- Text.Lazy.IO.readFile minFileName either (expectationFailure . errorBundlePretty) -- cgit v1.2.3