1
0
Fork 0

Fix sleep-nag

This commit is contained in:
Malte Brandy 2021-07-09 01:47:51 +02:00
parent 0726cfd5c7
commit 8044fbc811

View file

@ -16,7 +16,7 @@ let
time <- getZonedTime
let tod = localTimeOfDay . zonedTimeToLocalTime$ time
hour = todHour tod
minute = todMinute tod
minute = todMin tod
evening = hour == 0
night = (hour < 6 && hour >= 1)
action