update callers of safeSpawn

This commit is contained in:
gwern0
2009-06-22 20:14:23 +00:00
parent 65b8c39fe7
commit 10c984ce44
3 changed files with 4 additions and 4 deletions

View File

@@ -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