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

6
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,8 +32,9 @@ simpleSh namedpipe = do
listen s 2 listen s 2
forever $ do forever $ do
(client, _addr) <- accept s (client, _addr) <- accept s
h <- socketToHandle client ReadWriteMode forkIO $ do
maybe noop (run h) . readish =<< hGetLine h h <- socketToHandle client ReadWriteMode
maybe noop (run h) . readish =<< hGetLine h
where where
run h (Cmd cmd params) = do run h (Cmd cmd params) = do
debug ["simplesh run", cmd, show params] debug ["simplesh run", cmd, show params]