cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-05-11 10:30:45 -03:00
parent 782e4f7f4b
commit 1f573876b7
Failed to extract signature
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Propellor/SimpleSh.hs
View File

@ -6,6 +6,7 @@
module Propellor.SimpleSh where module Propellor.SimpleSh where
import Network.Socket import Network.Socket
import Control.Concurrent
import Control.Concurrent.Chan import Control.Concurrent.Chan
import Control.Concurrent.Async import Control.Concurrent.Async
import System.Process (std_in, std_out, std_err) import System.Process (std_in, std_out, std_err)
@ -31,6 +32,7 @@ simpleSh namedpipe = do
listen s 2 listen s 2
forever $ do forever $ do
(client, _addr) <- accept s (client, _addr) <- accept s
forkIO $ do
h <- socketToHandle client ReadWriteMode h <- socketToHandle client ReadWriteMode
maybe noop (run h) . readish =<< hGetLine h maybe noop (run h) . readish =<< hGetLine h
where where