propellor spin

This commit is contained in:
Joey Hess 2014-04-10 00:51:12 -04:00
parent a08ae04bcb
commit 894907a796
Failed to extract signature
1 changed files with 1 additions and 1 deletions

View File

@ -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