42 lines
1.2 KiB
Haskell
42 lines
1.2 KiB
Haskell
|
{-# LANGUAGE CApiFFI #-}
|
||
|
|
{-# LANGUAGE CPP #-}
|
||
|
|
#if __GLASGOW_HASKELL__ >= 709
|
||
|
|
{-# LANGUAGE Safe #-}
|
||
|
|
#else
|
||
|
|
{-# LANGUAGE Trustworthy #-}
|
||
|
|
#endif
|
||
|
|
-----------------------------------------------------------------------------
|
||
|
|
-- |
|
||
|
|
-- Module : System.Posix.Time
|
||
|
|
-- Copyright : (c) The University of Glasgow 2002
|
||
|
|
-- License : BSD-style (see the file libraries/base/LICENSE)
|
||
|
|
--
|
||
|
|
-- Maintainer : libraries@haskell.org
|
||
|
|
-- Stability : provisional
|
||
|
|
-- Portability : non-portable (requires POSIX)
|
||
|
|
--
|
||
|
|
-- POSIX Time support
|
||
|
|
--
|
||
|
|
-----------------------------------------------------------------------------
|
||
|
|
|
||
|
|
module System.Posix.Time (
|
||
|
|
epochTime,
|
||
|
|
-- ToDo: lots more from sys/time.h
|
||
|
|
-- how much already supported by System.Time?
|
||
|
|
) where
|
||
|
|
|
||
|
|
import System.Posix.Types
|
||
|
|
import Foreign
|
||
|
|
import Foreign.C
|
||
|
|
|
||
|
|
-- -----------------------------------------------------------------------------
|
||
|
|
-- epochTime
|
||
|
|
|
||
|
|
-- | @epochTime@ calls @time@ to obtain the number of
|
||
|
|
-- seconds that have elapsed since the epoch (Jan 01 00:00:00 GMT 1970).
|
||
|
|
epochTime :: IO EpochTime
|
||
|
|
epochTime = throwErrnoIfMinus1 "epochTime" (c_time nullPtr)
|
||
|
|
|
||
|
|
foreign import capi unsafe "HsUnix.h time"
|
||
|
|
c_time :: Ptr CTime -> IO CTime
|