@@ -1,4 +1,4 @@
1−{-# LANGUAGE NoImplicitPrelude, TemplateHaskell #-}
1+{-# LANGUAGE CPP, NoImplicitPrelude, TemplateHaskell #-}
22
33{-|
44Module: Data.Aeson.TH
@@ -140,13 +140,16 @@ import Data.Aeson.Types ( Value(..) )
140140import Control.Applicative ( pure, (<$>), (<*>) )
141141import Control.Monad ( return, mapM, mzero, liftM2 )
142142import Data.Bool ( otherwise )
143−import GHC.Base ( Monad(..), String )
144143import Data.Eq ( (==) )
145144import Data.Function ( ($), (.), id )
146145import Data.Functor ( fmap )
147146import Data.List ( (++), foldl', map, zip, genericLength )
148−import Prelude ( (-), Integer, fromInteger, error )
147+import Prelude ( String, (-), Integer, error )
149148import Text.Show ( show )
149+#if __GLASGOW_HASKELL__ < 700
150+import Control.Monad ( (>>=), fail )
151+import Prelude ( fromInteger )
152+#endif
150153-- from containers:
151154import qualified Data.Map as M ( toList )
152155-- from template-haskell: