use executeFile instead of rawSystem to run notify-send

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
 import System.Process ( rawSystem )
 import System.Exit ( ExitCode(ExitSuccess) )
 import System.Posix.Env     ( setEnv )
-import System.Posix.Process ( forkProcess, exitImmediately )
+import System.Posix.Process ( forkProcess, exitImmediately, executeFile )
 import System.Posix.User  ( setUserID, getUserEntryForName, userID )
 import System.Posix.Files ( getFileStatus, fileMode )
 import System.INotify ( initINotify, EventVariety(Modify), addWatch )
@@ -232,7 +232,8 @@ deliverGUIMessage cw tty utmp msg = do
     pid <- forkProcess $ do
         setUserID (userID uentry)
         setEnv "DISPLAY" display True
-        rawSystem "/usr/bin/notify-send" [text]
+        -- rawSystem "/usr/bin/notify-send" [text]
+        executeFile "/usr/bin/notify-send" False [text] (Just [("DISPLAY",display)])
         exitImmediately ExitSuccess
     return True