diff options
| -rw-r--r-- | Propellor/SimpleSh.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Propellor/SimpleSh.hs b/Propellor/SimpleSh.hs index 99a6fc24..7e0f19ff 100644 --- a/Propellor/SimpleSh.hs +++ b/Propellor/SimpleSh.hs @@ -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 |