getModificationTime shim

TimeTest.hs

{-# LANGUAGE CPP #-}

import Data.Functor ((<$>))
import Data.Time
import System.Directory
#if !(MIN_VERSION_time(1,2,0))
import Data.Time.Clock.POSIX
import System.Time (ClockTime(..))
#endif

getModificationTimeUTC :: FilePath -> IO UTCTime
#if MIN_VERSION_time(1,2,0)
getModificationTimeUTC = getModificationTime
#else
getModificationTimeUTC fp =
    clockTimeToUTCTime <$> getModificationTime fp

clockTimeToUTCTime :: ClockTime -> UTCTime
clockTimeToUTCTime (TOD unixTime unixPico) =
    let diff = fromInteger unixTime + fromRational ((fromInteger unixPico)/1000000000000)
    in posixSecondsToUTCTime diff
#endif