diff options
author | 2013-10-10 12:54:59 -0400 | |
---|---|---|
committer | 2013-10-10 12:55:30 -0400 | |
commit | 55ceb9b581698471de7ea9c77843c08791ae2faa (patch) | |
tree | f746de2cb4ddddc465037046bc65fa3dac77cbec /Assistant/Threads/Cronner.hs | |
parent | 5141e985afd2efae278bdbc50880c5f82a50befb (diff) |
got delay calculation backwards
Diffstat (limited to 'Assistant/Threads/Cronner.hs')
-rw-r--r-- | Assistant/Threads/Cronner.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/Cronner.hs b/Assistant/Threads/Cronner.hs index b683d2e47..a5fb2de7d 100644 --- a/Assistant/Threads/Cronner.hs +++ b/Assistant/Threads/Cronner.hs @@ -122,7 +122,7 @@ secondsUntilLocalTime :: LocalTime -> IO Seconds secondsUntilLocalTime t = do now <- getCurrentTime tz <- getTimeZone now - let secs = truncate $ diffUTCTime now (localTimeToUTC tz t) + let secs = truncate $ diffUTCTime (localTimeToUTC tz t) now return $ if secs > 0 then Seconds secs else Seconds 0 |