1
0
Fork 0

Fix sleep nag message

This commit is contained in:
Malte Brandy 2019-12-17 23:54:35 +01:00
parent eadbe43d96
commit 2a7d8b7a46
No known key found for this signature in database
GPG key ID: 226A2D41EF5378C9

View file

@ -20,7 +20,7 @@ let
diff = diffUTCTime (zonedTimeToUTC time{zonedTimeToLocalTime = (zonedTimeToLocalTime time){localTimeOfDay = TimeOfDay 23 0 0}}) (zonedTimeToUTC time)
delay = toRational diff
if night then (do
notify_send ([i|title='Es ist #{formatTime defaultTimeLocale "%H:%M" time} Uhr: Zeit ins Bett zu gehen!'|]::String) "Du kannst das hier auch morgen tun!"
notify_send ([i|Es ist #{formatTime defaultTimeLocale "%H:%M" time} Uhr: Zeit ins Bett zu gehen!|]::String) "Du kannst das hier auch morgen tun!"
threadDelay 600000000)
else
threadDelay (floor $ delay * 1000000)