Fixes for ghc-7.8

This commit is contained in:
Danny Navarro 2015-09-22 14:02:12 +02:00
parent 06b3302862
commit a4db99ea5d
3 changed files with 11 additions and 2 deletions

View File

@ -10,7 +10,7 @@ import Data.Monoid (Monoid, mempty)
#endif #endif
import Control.Applicative ((<|>), empty, many, optional) import Control.Applicative ((<|>), empty, many, optional)
import Control.Monad (when) import Control.Monad (when)
import Data.Char import Data.Char (isDigit, isSpace)
import Data.Foldable (traverse_) import Data.Foldable (traverse_)
import Data.Text (Text, append) import Data.Text (Text, append)

View File

@ -1,7 +1,11 @@
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module Data.GraphQL.Printer where 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.Monoid ((<>))
import Data.Text (Text, cons, intercalate, pack, snoc) import Data.Text (Text, cons, intercalate, pack, snoc)

View File

@ -1,6 +1,11 @@
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module Main where module Main where
#if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>), (<*>))
#endif
import Data.Attoparsec.Text (parseOnly) import Data.Attoparsec.Text (parseOnly)
import qualified Data.Text.IO as Text import qualified Data.Text.IO as Text
import Test.Tasty (defaultMain) import Test.Tasty (defaultMain)