[commit: old-time] master: Make %j return values in the right range; fixes #5430 (3669ee6)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/old-time

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/3669ee6fd9cfbec4d8f3b5e5f8862b864f427b7f

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

commit 3669ee6fd9cfbec4d8f3b5e5f8862b864f427b7f
Author: Ian Lynagh <igloo at earth.li>
Date:   Fri Sep 30 12:27:06 2011 +0100

    Make %j return values in the right range; fixes #5430
    
    Both "struct tm" and the CalendarTime type use 000-365, but %j
    uses 001-366.

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

 System/Time.hsc |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/System/Time.hsc b/System/Time.hsc
index 77fec86..1ddddba 100644
--- a/System/Time.hsc
+++ b/System/Time.hsc
@@ -611,7 +611,7 @@ formatCalendarTime l fmt cal@(CalendarTime year mon day hour minute sec _
         decode 'e' = show2' day                      -- ditto, padded
         decode 'H' = show2 hour                      -- hours, 24-hour clock, padded
         decode 'I' = show2 (to12 hour)               -- hours, 12-hour clock
-        decode 'j' = show3 yday                      -- day of the year
+        decode 'j' = show3 (yday + 1)                -- day of the year
         decode 'k' = show2' hour                     -- hours, 24-hour clock, no padding
         decode 'l' = show2' (to12 hour)              -- hours, 12-hour clock, no padding
         decode 'M' = show2 minute                    -- minutes