From b1bf3fafa40b1aec6886fb6f91f18676403efc46 Mon Sep 17 00:00:00 2001 From: gwern0 Date: Mon, 22 Jun 2009 22:14:23 +0200 Subject: update callers of safeSpawn Ignore-this: 484eca17b9877f7d587fc5bce8c5ae8a darcs-hash:20090622201423-f7719-e2e02429f80ee2ef794680ebbffda67f1847835c.gz --- XMonad/Prompt/Shell.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Prompt') diff --git a/XMonad/Prompt/Shell.hs b/XMonad/Prompt/Shell.hs index 4dc466a..782cb56 100644 --- a/XMonad/Prompt/Shell.hs +++ b/XMonad/Prompt/Shell.hs @@ -77,7 +77,7 @@ shellPrompt c = do prompt, unsafePrompt, safePrompt :: FilePath -> XPConfig -> X () prompt = unsafePrompt safePrompt c config = mkXPrompt Shell config (getShellCompl [c]) run - where run = safeSpawn c . encodeOutput + where run = safeSpawn c . return . encodeOutput unsafePrompt c config = mkXPrompt Shell config (getShellCompl [c]) run where run a = unsafeSpawn $ c ++ " " ++ encodeOutput a -- cgit v1.2.3