X-Git-Url: https://git.hcoop.net/jyaworski/domtool2.git/blobdiff_plain/1b96e27daa5e23d69adc832183c947ebcdf1d658..e251d3cbbd3950c5487b2e66c3b27f04c820e521:/src/main.sml?ds=sidebyside diff --git a/src/main.sml b/src/main.sml index f2beee8..28834af 100644 --- a/src/main.sml +++ b/src/main.sml @@ -1626,7 +1626,8 @@ fun slave () = val _ = print ("Slave server starting at " ^ now () ^ "\n") fun loop () = - (case OpenSSL.accept sock of + (Acl.read Config.aclFile; + case OpenSSL.accept sock of NONE => () | SOME bio => let