@@ -48,17 +48,12 @@ import Control.DeepSeq (NFData (..))
4848import Control.Monad (guard, liftM2)
4949import Data.Bits
5050import Data.Char
51+import Data.Data
5152import Data.Functor ((<$>))
5253import Data.Hashable
5354import Data.List (elemIndices)
5455import Foreign.Ptr (Ptr)
5556
56−#if MIN_VERSION_base(4,0,0)
57−import Data.Data
58−#else
59−import Data.Generics.Basics
60−#endif
61−
6257import Foreign.Storable
6358
6459import Data.Binary
@@ -575,11 +570,6 @@ instance Data UUID where
575570uuidType :: DataType
576571uuidType = mkNoRepType "Data.UUID.Types.UUID"
577572
578−#if !(MIN_VERSION_base(4,2,0))
579−mkNoRepType :: String -> DataType
580−mkNoRepType = mkNorepType
581−#endif
582−
583573#if !MIN_VERSION_base(4,5,0)
584574unsafeShiftR, unsafeShiftL :: Word64 -> Int -> Word64
585575unsafeShiftR = shiftR