1
0
Fork 0

Fix sleep-nag script

This commit is contained in:
Malte Brandy 2021-07-09 10:31:49 +02:00
parent dfff4bd258
commit 79f5d05b4f
No known key found for this signature in database
GPG key ID: 226A2D41EF5378C9

View file

@ -10,7 +10,7 @@ let
"Control.Concurrent"
"Data.Functor"
];
bins = [ pkgs.libnotify ];
bins = [ pkgs.libnotify pkgs.systemd ];
} ''
main = forever $ do
time <- getZonedTime
@ -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" "poweroff"
| night = systemctl "poweroff"
| otherwise = pass
action
threadDelay 600000000