From a4db99ea5d78637e15abdb2c8ed3f9864b6ad35b Mon Sep 17 00:00:00 2001 From: Danny Navarro Date: Tue, 22 Sep 2015 14:02:12 +0200 Subject: [PATCH] Fixes for ghc-7.8 --- Data/GraphQL/Parser.hs | 2 +- Data/GraphQL/Printer.hs | 6 +++++- tests/tasty.hs | 5 +++++ 3 files changed, 11 insertions(+), 2 deletions(-) diff --git a/Data/GraphQL/Parser.hs b/Data/GraphQL/Parser.hs index 00e4df1..1f5b8e6 100644 --- a/Data/GraphQL/Parser.hs +++ b/Data/GraphQL/Parser.hs @@ -10,7 +10,7 @@ import Data.Monoid (Monoid, mempty) #endif import Control.Applicative ((<|>), empty, many, optional) import Control.Monad (when) -import Data.Char +import Data.Char (isDigit, isSpace) import Data.Foldable (traverse_) import Data.Text (Text, append) diff --git a/Data/GraphQL/Printer.hs b/Data/GraphQL/Printer.hs index f241220..dd0e5de 100644 --- a/Data/GraphQL/Printer.hs +++ b/Data/GraphQL/Printer.hs @@ -1,7 +1,11 @@ +{-# LANGUAGE CPP #-} {-# LANGUAGE OverloadedStrings #-} module Data.GraphQL.Printer where -import Prelude hiding (unwords) +#if !MIN_VERSION_base(4,8,0) +import Control.Applicative ((<$>)) +import Data.Monoid (Monoid, mconcat, mempty) +#endif import Data.Monoid ((<>)) import Data.Text (Text, cons, intercalate, pack, snoc) diff --git a/tests/tasty.hs b/tests/tasty.hs index 64786e6..32bdd8d 100644 --- a/tests/tasty.hs +++ b/tests/tasty.hs @@ -1,6 +1,11 @@ +{-# LANGUAGE CPP #-} {-# LANGUAGE OverloadedStrings #-} module Main where +#if !MIN_VERSION_base(4,8,0) +import Control.Applicative ((<$>), (<*>)) +#endif + import Data.Attoparsec.Text (parseOnly) import qualified Data.Text.IO as Text import Test.Tasty (defaultMain)