/usr/lib/hugs/packages/time/Data/Time/Clock.hs is in libhugs-time-bundled 98.200609.21-5.3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | {-# OPTIONS -Wall -Werror #-}
-- | Types and functions for UTC and UT1
module Data.Time.Clock
(
module Data.Time.Clock.Scale,
module Data.Time.Clock.UTC,
module Data.Time.Clock.UTCDiff,
module Data.Time.Clock
) where
import Data.Time.Clock.Scale
import Data.Time.Clock.UTCDiff
import Data.Time.Clock.UTC
import Data.Time.Clock.POSIX
import Control.Monad
-- | Get the current UTC time from the system clock.
getCurrentTime :: IO UTCTime
getCurrentTime = liftM posixSecondsToUTCTime getPOSIXTime
|