diff options
-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 | ||