From 6dc02043fc6f475d5bc828eb0fe500a81909ad35 Mon Sep 17 00:00:00 2001 From: joe Date: Sun, 16 Mar 2014 20:48:48 -0400 Subject: use executeFile instead of rawSystem to run notify-send --- Presence/ConsoleWriter.hs | 5 +++-- 1 file 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 -- cgit v1.2.3