diff options
author | joe <joe@jerkface.net> | 2014-03-16 20:48:48 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2014-03-16 20:48:48 -0400 |
commit | 6dc02043fc6f475d5bc828eb0fe500a81909ad35 (patch) | |
tree | 7cc881fa235531ebc6f2b355a7aec5d0c3cff8e2 | |
parent | 706626898aed272b6d72f53b466445810ac35a31 (diff) |
use executeFile instead of rawSystem to run notify-send
-rw-r--r-- | Presence/ConsoleWriter.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Presence/ConsoleWriter.hs b/Presence/ConsoleWriter.hs index a7111b4b..e295a72b 100644 --- a/Presence/ConsoleWriter.hs +++ b/Presence/ConsoleWriter.hs | |||
@@ -19,7 +19,7 @@ import System.Environment | |||
19 | import System.Process ( rawSystem ) | 19 | import System.Process ( rawSystem ) |
20 | import System.Exit ( ExitCode(ExitSuccess) ) | 20 | import System.Exit ( ExitCode(ExitSuccess) ) |
21 | import System.Posix.Env ( setEnv ) | 21 | import System.Posix.Env ( setEnv ) |
22 | import System.Posix.Process ( forkProcess, exitImmediately ) | 22 | import System.Posix.Process ( forkProcess, exitImmediately, executeFile ) |
23 | import System.Posix.User ( setUserID, getUserEntryForName, userID ) | 23 | import System.Posix.User ( setUserID, getUserEntryForName, userID ) |
24 | import System.Posix.Files ( getFileStatus, fileMode ) | 24 | import System.Posix.Files ( getFileStatus, fileMode ) |
25 | import System.INotify ( initINotify, EventVariety(Modify), addWatch ) | 25 | import System.INotify ( initINotify, EventVariety(Modify), addWatch ) |
@@ -232,7 +232,8 @@ deliverGUIMessage cw tty utmp msg = do | |||
232 | pid <- forkProcess $ do | 232 | pid <- forkProcess $ do |
233 | setUserID (userID uentry) | 233 | setUserID (userID uentry) |
234 | setEnv "DISPLAY" display True | 234 | setEnv "DISPLAY" display True |
235 | rawSystem "/usr/bin/notify-send" [text] | 235 | -- rawSystem "/usr/bin/notify-send" [text] |
236 | executeFile "/usr/bin/notify-send" False [text] (Just [("DISPLAY",display)]) | ||
236 | exitImmediately ExitSuccess | 237 | exitImmediately ExitSuccess |
237 | return True | 238 | return True |
238 | 239 | ||