1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-# LANGUAGE Safe #-}
module Data.Time.Clock.Internal.UniversalTime (
-- * Universal Time
-- | Time as measured by the Earth.
UniversalTime (..),
) where
import Control.DeepSeq
import Data.Data
-- | The Modified Julian Date is the day with the fraction of the day, measured from UT midnight.
-- It's used to represent UT1, which is time as measured by the earth's rotation, adjusted for various wobbles.
newtype UniversalTime = ModJulianDate
{ getModJulianDate :: Rational
}
deriving (Eq, Ord, Data, Typeable)
instance NFData UniversalTime where
rnf (ModJulianDate a) = rnf a
|
