summaryrefslogtreecommitdiff
path: root/Propellor/SimpleSh.hs
diff options
context:
space:
mode:
authorJoey Hess2014-04-10 00:51:12 -0400
committerJoey Hess2014-04-10 00:51:12 -0400
commit894907a7964ea051cf3a062fc53031c152b203b9 (patch)
treee0cc75ef9bd06b4ff5dee3255f80ff1918316ba3 /Propellor/SimpleSh.hs
parenta08ae04bcb922ed076a123ecade16d58e6f75982 (diff)
propellor spin
Diffstat (limited to 'Propellor/SimpleSh.hs')
-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