
"Lyle Kopnicky"
Thanks, but that doesn't seem to work. I got an answer of -3. I tried it again a minute later and it was still -3. I tried again a minute later and it was -1. It's just after 9am here, so I have no idea what to make of those numbers.
That's most strange. The only difference between what I wrote and what you had before was the way the conversion to Integer was done.
I have settled on this code:
secondsSinceMidnight :: IO Int secondsSinceMidnight = do zonedTime <- getZonedTime return $ floor $ toRational $ timeOfDayToTime $ localTimeOfDay $ zonedTimeToLocalTime zonedTime
So what happens with do now <- getZonedTime; print $ (fromEnum $ timeOfDayToTime $ localTimeOfDay $ zonedTimeToLocalTime now)`div`fromEnum (secondsToDiffTime 1) where you are? -- Jón Fairbairn Jon.Fairbairn@cl.cam.ac.uk