1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
module Data.Time.Clock.Internal.UniversalTime
(
-- * Universal Time
-- | Time as measured by the Earth.
UniversalTime(..),
) where
import Data.Typeable
import Data.Data
import Control.DeepSeq
-- | 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)
-- necessary because H98 doesn't have "cunning newtype" derivation
instance NFData UniversalTime where
rnf (ModJulianDate a) = rnf a
|
