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
|
secondsUntilLocalTime t = do
|
||||||
now <- getCurrentTime
|
now <- getCurrentTime
|
||||||
tz <- getTimeZone now
|
tz <- getTimeZone now
|
||||||
let secs = truncate $ diffUTCTime now (localTimeToUTC tz t)
|
let secs = truncate $ diffUTCTime (localTimeToUTC tz t) now
|
||||||
return $ if secs > 0
|
return $ if secs > 0
|
||||||
then Seconds secs
|
then Seconds secs
|
||||||
else Seconds 0
|
else Seconds 0
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue