{-# LANGUAGE CPP #-}
module Data.Time.LocalTime.TimeZone.Internal.TimeVersion
(
mapBuiltTime
, mapFormatCharacter
)
where
#if MIN_VERSION_time(1,6,0)
mapBuiltTime :: Functor f => (a -> b) -> f a -> f b
mapBuiltTime :: (a -> b) -> f a -> f b
mapBuiltTime = (a -> b) -> f a -> f b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap
#else
mapBuiltTime :: a -> a
mapBuiltTime = id
#endif
#if MIN_VERSION_time(1,9,1)
mapFormatCharacter :: (a -> b) -> Maybe (x -> b -> String) -> Maybe (x -> a -> String)
mapFormatCharacter :: (a -> b) -> Maybe (x -> b -> String) -> Maybe (x -> a -> String)
mapFormatCharacter a -> b
f = ((x -> b -> String) -> x -> a -> String)
-> Maybe (x -> b -> String) -> Maybe (x -> a -> String)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap (\x -> b -> String
g x
x -> x -> b -> String
g x
x (b -> String) -> (a -> b) -> a -> String
forall b c a. (b -> c) -> (a -> b) -> a -> c
. a -> b
f)
#elif MIN_VERSION_time(1,8,0)
mapFormatCharacter ::
(a -> b) -> (c -> d -> e -> b -> z) -> c -> d -> e -> a -> z
mapFormatCharacter f g locale mpado mwidth = g locale mpado mwidth . f
#else
mapFormatCharacter :: (a -> b) -> (c -> d -> b -> z) -> c -> d -> a -> z
mapFormatCharacter f g locale mpado = g locale mpado . f
#endif