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