wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Wrap exec, a la lambdabot

Browse Source
This commit is contained in:
Don Stewart 2005-07-04 04:39:44 +00:00
parent fc572bf6f8
commit 3697ba0fd1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/plugins/System/Plugins/Utils.hs
View File

@ -70,6 +70,7 @@ import Data.List
import System.IO import System.IO
import System.Environment ( getEnv ) import System.Environment ( getEnv )
import System.Directory import System.Directory
import qualified Control.Exception as Control.Exception (handle)
-- --
-- The fork library -- The fork library
@ -196,7 +197,10 @@ exec :: String -> [String] -> IO ([String],[String])
-- Needs to be compiled with -threaded for waitForProcess not to block -- Needs to be compiled with -threaded for waitForProcess not to block
-- --
exec prog args = do exec prog args = do
(_,outh,errh,proc_hdl) <- runInteractiveProcess prog args Nothing Nothing Control.Exception.handle (\e -> return ([], [show e])) $ do
(_inh,outh,errh,proc_hdl) <- runInteractiveProcess prog args Nothing Nothing
output <- hGetContents outh output <- hGetContents outh
errput <- hGetContents errh errput <- hGetContents errh
forkIO (Control.Exception.evaluate (length output) >> return ()) forkIO (Control.Exception.evaluate (length output) >> return ())