propellor spin
This commit is contained in:
parent
a08ae04bcb
commit
894907a796
|
@ -27,7 +27,7 @@ simpleSh namedpipe = do
|
|||
createDirectoryIfMissing True dir
|
||||
modifyFileMode dir (removeModes otherGroupModes)
|
||||
s <- socket AF_UNIX Stream defaultProtocol
|
||||
bind s (SockAddrUnix namedpipe)
|
||||
bindSocket s (SockAddrUnix namedpipe)
|
||||
listen s 2
|
||||
forever $ do
|
||||
(client, _addr) <- accept s
|
||||
|
|
Loading…
Reference in New Issue