Lennart Augustsson
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