git.iko.soy/typeable/uuid
on master help sign in
Drop support for base < 4.3
873f25dHerbert Valerio Riedel
uuid-types/Data/UUID/Types/Internal.hs+1−11
compare with master
unifiedsplit
@@ -48,17 +48,12 @@ import Control.DeepSeq (NFData (..))
48import Control.Monad (guard, liftM2)
48import Control.Monad (guard, liftM2)
49import Data.Bits
49import Data.Bits
50import Data.Char
50import Data.Char
51+import Data.Data
51import Data.Functor ((<$>))
52import Data.Functor ((<$>))
52import Data.Hashable
53import Data.Hashable
53import Data.List (elemIndices)
54import Data.List (elemIndices)
54import Foreign.Ptr (Ptr)
55import Foreign.Ptr (Ptr)
55
56
56−#if MIN_VERSION_base(4,0,0)
57−import Data.Data
58−#else
59−import Data.Generics.Basics
60−#endif
61−
62import Foreign.Storable
57import Foreign.Storable
63
58
64import Data.Binary
59import Data.Binary
@@ -575,11 +570,6 @@ instance Data UUID where
575uuidType :: DataType
570uuidType :: DataType
576uuidType = mkNoRepType "Data.UUID.Types.UUID"
571uuidType = mkNoRepType "Data.UUID.Types.UUID"
577
572
578−#if !(MIN_VERSION_base(4,2,0))
579−mkNoRepType :: String -> DataType
580−mkNoRepType = mkNorepType
581−#endif
582−
583#if !MIN_VERSION_base(4,5,0)
573#if !MIN_VERSION_base(4,5,0)
584unsafeShiftR, unsafeShiftL :: Word64 -> Int -> Word64
574unsafeShiftR, unsafeShiftL :: Word64 -> Int -> Word64
585unsafeShiftR = shiftR
575unsafeShiftR = shiftR