got delay calculation backwards
This commit is contained in:
parent
5b70eac659
commit
6a331d1261
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue