From 3c9ff800ddafde6c2fccf497471b826fd1f581af Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bjo=CC=88rn=20Buckwalter?= Date: Sun, 8 Jan 2012 14:51:58 +0800 Subject: [PATCH] 2012-07-01 leap second. --- Data/Time/Clock/AnnouncedLeapSeconds.hs | 7 ++++--- MakeLeapSecondTable.hs | 2 +- leapseconds-announced.cabal | 6 +++--- 3 files changed, 8 insertions(+), 7 deletions(-) diff --git a/Data/Time/Clock/AnnouncedLeapSeconds.hs b/Data/Time/Clock/AnnouncedLeapSeconds.hs index c694b58..9c06614 100644 --- a/Data/Time/Clock/AnnouncedLeapSeconds.hs +++ b/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. diff --git a/MakeLeapSecondTable.hs b/MakeLeapSecondTable.hs index a0c457c..5476b66 100644 --- a/MakeLeapSecondTable.hs +++ b/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" diff --git a/leapseconds-announced.cabal b/leapseconds-announced.cabal index 5b6d25d..2020961 100755 --- a/leapseconds-announced.cabal +++ b/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