module Time where

import NHC.GreenCard
import DClockTime
import DCalendarTime

foreign import ccall hs_toUTCTime :: Int -> (Int,Int,Int,Int,Int,Int,Int,Int,Int,PackedString,Int,Bool)

toUTCTime :: ClockTime -> CalendarTime
toUTCTime (CT ct) =
  let (res1,res2,res3,res4,res5,res6,res7,res8,res9,res10,res11,res12) = hs_toUTCTime ct in
  (CalendarTime res1 (toEnum res2) res3 res4 res5 res6 (toInteger res7) (toEnum res8) res9 (fromCString res10) res11 res12)