got delay calculation backwards

This commit is contained in:
Joey Hess 2013-10-10 12:54:59 -04:00
parent 5b70eac659
commit 6a331d1261

View file

@ -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