Read ACL in slave service loop

[hcoop/domtool2.git] / src / main.sml

diff --git a/src/main.sml b/src/main.sml
index f2beee8..28834af 100644 (file)
--- 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