summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Presence/ConsoleWriter.hs5
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
19import System.Process ( rawSystem ) 19import System.Process ( rawSystem )
20import System.Exit ( ExitCode(ExitSuccess) ) 20import System.Exit ( ExitCode(ExitSuccess) )
21import System.Posix.Env ( setEnv ) 21import System.Posix.Env ( setEnv )
22import System.Posix.Process ( forkProcess, exitImmediately ) 22import System.Posix.Process ( forkProcess, exitImmediately, executeFile )
23import System.Posix.User ( setUserID, getUserEntryForName, userID ) 23import System.Posix.User ( setUserID, getUserEntryForName, userID )
24import System.Posix.Files ( getFileStatus, fileMode ) 24import System.Posix.Files ( getFileStatus, fileMode )
25import System.INotify ( initINotify, EventVariety(Modify), addWatch ) 25import 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