Fix sleep-nag
This commit is contained in:
parent
c20f4f5535
commit
13996cc87d
|
@ -21,7 +21,7 @@ let
|
|||
night = (hour < 6 && hour >= 1)
|
||||
action
|
||||
| evening = notify_send "Shutdown alert!" ([i|Rechner fährt in #{59-minute} Minuten runter.|]::String)
|
||||
| night = exe "/run/wrappers/bin/sudo" "systemctl" "shutdown"
|
||||
| night = exe "/run/wrappers/bin/sudo" "systemctl" "poweroff"
|
||||
| otherwise = pass
|
||||
action
|
||||
threadDelay 600000000
|
||||
|
|
Loading…
Reference in a new issue