summaryrefslogtreecommitdiff
path: root/Assistant/Threads
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-10-10 12:54:59 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-10-10 12:55:30 -0400
commit55ceb9b581698471de7ea9c77843c08791ae2faa (patch)
treef746de2cb4ddddc465037046bc65fa3dac77cbec /Assistant/Threads
parent5141e985afd2efae278bdbc50880c5f82a50befb (diff)
got delay calculation backwards
Diffstat (limited to 'Assistant/Threads')
-rw-r--r--Assistant/Threads/Cronner.hs2
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