Fix sleep-nag
This commit is contained in:
parent
0726cfd5c7
commit
8044fbc811
1 changed files with 1 additions and 1 deletions
|
@ -16,7 +16,7 @@ let
|
||||||
time <- getZonedTime
|
time <- getZonedTime
|
||||||
let tod = localTimeOfDay . zonedTimeToLocalTime$ time
|
let tod = localTimeOfDay . zonedTimeToLocalTime$ time
|
||||||
hour = todHour tod
|
hour = todHour tod
|
||||||
minute = todMinute tod
|
minute = todMin tod
|
||||||
evening = hour == 0
|
evening = hour == 0
|
||||||
night = (hour < 6 && hour >= 1)
|
night = (hour < 6 && hour >= 1)
|
||||||
action
|
action
|
||||||
|
|
Loading…
Reference in a new issue