1
0
Fork 0

Add tasknotify timeout

This commit is contained in:
Malte Brandy 2020-01-13 21:16:16 +01:00
parent a63dd40c91
commit 3addd3d264
No known key found for this signature in database
GPG key ID: 226A2D41EF5378C9

View file

@ -65,7 +65,7 @@
pure (description, printMap diff)
Control.Monad.forM_ description $ \(d,b) -> do
client <- connectSession
notify client blankNote { summary = [i|Modified task #{d}|], body = Just $ Text b }
notify client blankNote { summary = [i|Modified task #{d}|], body = Just $ Text b, expiry = Milliseconds 15000 }
hPut stdout input2
'';
on-add = writeHaskellScript {