[nhc-bugs] Bug still not fixed

[Malcolm Wallace]

Lennart Augustsson <lennart@augustsson.net> writes:

> In the Time module Picosec is spelled PicoSec in two places.
> Perhaps this could be fixed?

Apologies, this was fixed a year ago in the sources, but the
change was not propagated to the installed interface files.
Patch attached, and also available from our downloads page.

Regards,
    Malcolm


Index: include/Time.hi
===================================================================
RCS file: /usr/src/master/nhc/include/Time.hi,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- include/Time.hi	2002/10/07 14:09:37	1.5
+++ include/Time.hi	2002/10/21 14:15:05	1.6
@@ -105,9 +105,9 @@
 {-# NEED addToClockTime #-}
 addToClockTime{-# 2 #-}::(TimeDiff -> (ClockTime -> ClockTime));
 
-{-# NEED {TimeDiff TimeDiff tdYear tdMonth tdDay tdHour tdMin tdSec tdPicoSec} #-}
+{-# NEED {TimeDiff TimeDiff tdYear tdMonth tdDay tdHour tdMin tdSec tdPicosec} #-}
 data TimeDiff
-  = TimeDiff {tdYear :: Prelude.Int} {tdMonth :: Prelude.Int} {tdDay :: Prelude.Int} {tdHour :: Prelude.Int} {tdMin :: Prelude.Int} {tdSec :: Prelude.Int} {tdPicoSec :: Prelude.Integer};
+  = TimeDiff {tdYear :: Prelude.Int} {tdMonth :: Prelude.Int} {tdDay :: Prelude.Int} {tdHour :: Prelude.Int} {tdMin :: Prelude.Int} {tdSec :: Prelude.Int} {tdPicosec :: Prelude.Integer};
 
 {-# NEED toClockTime #-}
 toClockTime{-# 1 #-}::(CalendarTime -> ClockTime);
@@ -115,9 +115,9 @@
 {-# NEED toUTCTime #-}
 toUTCTime{-# 1 #-}::(ClockTime -> CalendarTime);
 
-{-# NEED {CalendarTime CalendarTime ctYear ctMonth ctDay ctHour ctMin ctSec ctPicoSec ctWDay ctYDay ctTZName ctTZ ctIsDST} #-}
+{-# NEED {CalendarTime CalendarTime ctYear ctMonth ctDay ctHour ctMin ctSec ctPicosec ctWDay ctYDay ctTZName ctTZ ctIsDST} #-}
 data CalendarTime
-  = CalendarTime {ctYear :: Prelude.Int} {ctMonth :: Month} {ctDay :: Prelude.Int} {ctHour :: Prelude.Int} {ctMin :: Prelude.Int} {ctSec :: Prelude.Int} {ctPicoSec :: Prelude.Integer} {ctWDay :: Day} {ctYDay :: Prelude.Int} {ctTZName :: Prelude.String} {ctTZ :: Prelude.Int} {ctIsDST :: Prelude.Bool};
+  = CalendarTime {ctYear :: Prelude.Int} {ctMonth :: Month} {ctDay :: Prelude.Int} {ctHour :: Prelude.Int} {ctMin :: Prelude.Int} {ctSec :: Prelude.Int} {ctPicosec :: Prelude.Integer} {ctWDay :: Day} {ctYDay :: Prelude.Int} {ctTZName :: Prelude.String} {ctTZ :: Prelude.Int} {ctIsDST :: Prelude.Bool};
 
 {-# NEED {Day Sunday Monday Tuesday Wednesday Thursday Friday Saturday} #-}
 data Day