[commit: packages/time] format-widths, improve-leapseconds, master, posix-perf, tasty, wip/travis: Fixed taiEpoch Haddock comment to include the epoch time. (1632436)

git at git.haskell.org git at git.haskell.org
Mon Feb 20 21:11:43 UTC 2017


Repository : ssh://git@git.haskell.org/time

On branches: format-widths,improve-leapseconds,master,posix-perf,tasty,wip/travis
Link       : http://git.haskell.org/packages/time.git/commitdiff/16324364771a9c323bed81d8eba20083576c9a4a

>---------------------------------------------------------------

commit 16324364771a9c323bed81d8eba20083576c9a4a
Author: bjorn <bjorn at bringert.net>
Date:   Thu Nov 16 04:00:24 2006 -0800

    Fixed taiEpoch Haddock comment to include the epoch time.
    
    The taiEpoch haddock comment was just "The epoch of TAI, which is".
    Changed this to "The epoch of TAI, which is 1858-11-17 00:00:00 TAI."
    
    darcs-hash:20061116120024-6cdb2-fe77f9d9bd5336bbd91bee5afcb055f3a6796965


>---------------------------------------------------------------

16324364771a9c323bed81d8eba20083576c9a4a
 Data/Time/Clock/TAI.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Data/Time/Clock/TAI.hs b/Data/Time/Clock/TAI.hs
index 00cebd5..b1c37c1 100644
--- a/Data/Time/Clock/TAI.hs
+++ b/Data/Time/Clock/TAI.hs
@@ -26,7 +26,7 @@ newtype AbsoluteTime = MkAbsoluteTime {unAbsoluteTime :: DiffTime} deriving (Eq,
 instance Show AbsoluteTime where
 	show t = show (utcToLocalTime utc (taiToUTCTime (const 0) t)) ++ " TAI" -- ugly, but standard apparently
 
--- | The epoch of TAI, which is 
+-- | The epoch of TAI, which is 1858-11-17 00:00:00 TAI.
 taiEpoch :: AbsoluteTime
 taiEpoch = MkAbsoluteTime 0
 



More information about the ghc-commits mailing list