dist-install/build/GHC/Event/Clock.hs

    {-# LINE 1 "libraries/base/GHC/Event/Clock.hsc" #-}
    {-# LANGUAGE Trustworthy #-}
    {-# LANGUAGE NoImplicitPrelude #-}

    module GHC.Event.Clock (getMonotonicTime) where

    import GHC.Base
    import GHC.Real
    import Data.Word

    -- | Return monotonic time in seconds, since some unspecified starting point
    getMonotonicTime :: IO Double
    getMonotonicTime = do w <- getMonotonicNSec
                          return (fromIntegral w / 1000000000)

    foreign import ccall unsafe "getMonotonicNSec"
        getMonotonicNSec :: IO Word64