time-compat-1.9.2: src/Data/Time/Clock/POSIX/Compat.hs

{-# LANGUAGE CPP #-}
module Data.Time.Clock.POSIX.Compat (
    posixDayLength,POSIXTime,posixSecondsToUTCTime,utcTimeToPOSIXSeconds,getPOSIXTime,getCurrentTime,
    systemToPOSIXTime,
    ) where

import Data.Time.Orphans ()

import Data.Time
import Data.Time.Clock.POSIX
import Data.Time.Clock.System.Compat

#if !MIN_VERSION_time(1,8,0)
systemToPOSIXTime :: SystemTime -> POSIXTime
systemToPOSIXTime (MkSystemTime s ns) = (fromIntegral s) + (fromIntegral ns) * 1E-9
#endif