@@ -1,4 +1,4 @@
1−{-# LANGUAGE NoImplicitPrelude, TemplateHaskell #-}
1+{-# LANGUAGE CPP, NoImplicitPrelude, TemplateHaskell #-}
4Module: Data.Aeson.TH
4Module: Data.Aeson.TH
@@ -140,13 +140,16 @@ import Data.Aeson.Types ( Value(..) )
140import Control.Applicative ( pure, (<$>), (<*>) )
140import Control.Applicative ( pure, (<$>), (<*>) )
141import Control.Monad ( return, mapM, mzero, liftM2 )
141import Control.Monad ( return, mapM, mzero, liftM2 )
142import Data.Bool ( otherwise )
142import Data.Bool ( otherwise )
143−import GHC.Base ( Monad(..), String )
144import Data.Eq ( (==) )
143import Data.Eq ( (==) )
145import Data.Function ( ($), (.), id )
144import Data.Function ( ($), (.), id )
146import Data.Functor ( fmap )
145import Data.Functor ( fmap )
147import Data.List ( (++), foldl', map, zip, genericLength )
146import Data.List ( (++), foldl', map, zip, genericLength )
148−import Prelude ( (-), Integer, fromInteger, error )
147+import Prelude ( String, (-), Integer, error )
149import Text.Show ( show )
148import Text.Show ( show )
149+#if __GLASGOW_HASKELL__ < 700
150+import Control.Monad ( (>>=), fail )
151+import Prelude ( fromInteger )
150-- from containers:
153-- from containers:
151import qualified Data.Map as M ( toList )
154import qualified Data.Map as M ( toList )
152-- from template-haskell:
155-- from template-haskell: