summaryrefslogtreecommitdiff
path: root/Propellor
diff options
context:
space:
mode:
Diffstat (limited to 'Propellor')
-rw-r--r--Propellor/SimpleSh.hs2
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