Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

2012-07-01 leap second.

  • Loading branch information...
commit 3c9ff800ddafde6c2fccf497471b826fd1f581af 1 parent 97f86fb
@bjornbm authored
View
7 Data/Time/Clock/AnnouncedLeapSeconds.hs
@@ -1,7 +1,7 @@
-- This file was automatically generated.
{- |
- Copyright : Copyright (C) 2009 Bjorn Buckwalter
+ Copyright : Copyright (C) 2009-2012 Bjorn Buckwalter
License : BSD3
Maintainer : bjorn.buckwalter@gmail.com
@@ -29,7 +29,8 @@ import Data.Time (Day, fromGregorian)
import Data.Time.Clock.TAI (LeapSecondTable)
leapSeconds :: [(Day, Integer)]
-leapSeconds = (fromGregorian 2009 01 01, 34)
+leapSeconds = (fromGregorian 2012 07 01, 35)
+ : (fromGregorian 2009 01 01, 34)
: (fromGregorian 2006 01 01, 33)
: (fromGregorian 1999 01 01, 32)
: (fromGregorian 1997 07 01, 31)
@@ -60,7 +61,7 @@ leapSeconds = (fromGregorian 2009 01 01, 34)
: []
-- | 'Data.Time.Clock.TAI.LeapSecondTable' containing all leap seconds
--- up to 2009-01-01.
+-- up to 2012-07-01.
lst :: LeapSecondTable
lst d = snd $ headDef (undefined,0) $ dropWhile ((>d).fst) leapSeconds
where headDef def xs = if null xs then def else head xs -- Inspired by Safe.
View
2  MakeLeapSecondTable.hs
@@ -51,7 +51,7 @@ showModule eops = unlines
[ "-- This file was automatically generated."
, ""
, "{- |"
- , " Copyright : Copyright (C) 2009 Bjorn Buckwalter"
+ , " Copyright : Copyright (C) 2009-2012 Bjorn Buckwalter"
, " License : BSD3"
, ""
, " Maintainer : bjorn.buckwalter@gmail.com"
View
6 leapseconds-announced.cabal
@@ -1,8 +1,8 @@
Name: leapseconds-announced
-Version: 2009
+Version: 2012
License: BSD3
License-File: LICENSE
-Copyright: Bjorn Buckwalter 2009-2010
+Copyright: Bjorn Buckwalter 2009-2012
Author: Bjorn Buckwalter
Maintainer: bjorn.buckwalter@gmail.com
Stability: Stable
@@ -12,7 +12,7 @@ Description:
with the leap seconds announced at library release time.
Category: System
Build-Type: Simple
-Build-Depends: base < 5, time < 1.3
+Build-Depends: base, time < 2
Exposed-Modules: Data.Time.Clock.AnnouncedLeapSeconds
Extra-source-files: TestLeapSeconds.hs
Please sign in to comment.
Something went wrong with that request. Please try again.