@@ -92,7 +92,6 @@ module Data.Aeson.TH
9292 ) where
9393
9494import Control.Applicative ( pure, (<$>), (<*>) )
95−import Control.Monad ( return, mapM, liftM2, fail )
9695import Data.Aeson ( toJSON, Object, (.=), (.:), (.:?)
9796 , ToJSON, toEncoding, toJSON
9897 , FromJSON, parseJSON
@@ -104,7 +103,7 @@ import Data.Aeson.Types ( Value(..), Parser
104103 , defaultTaggedObject
105104 )
106105import Data.Aeson.Types.Internal (Encoding(..))
107−import Control.Monad ( join )
106+import Control.Monad ( join, liftM2, return, mapM, fail )
108107import Data.Bool ( Bool(False, True), otherwise, (&&), not )
109108import Data.Either ( Either(Left, Right) )
110109import Data.Eq ( (==) )
@@ -138,9 +137,6 @@ import qualified Data.Text as T ( Text, pack, unpack )
138137import qualified Data.Vector as V ( unsafeIndex, null, length, create, fromList )
139138import qualified Data.Vector.Mutable as VM ( unsafeNew, unsafeWrite )
140139
141−#if !MIN_VERSION_base(4,8,0)
142−import Control.Monad ( return, mapM, liftM2, fail )
143−#endif
144140
145141--------------------------------------------------------------------------------
146142-- Convenience