Fix BIND slave syntax
authorAdam Chlipala <adamc@hcoop.net>
Sat, 9 Dec 2006 23:37:39 +0000 (23:37 +0000)
committerAdam Chlipala <adamc@hcoop.net>
Sat, 9 Dec 2006 23:37:39 +0000 (23:37 +0000)
src/domain.sml

index f2579dd..85dcd67 100644 (file)
@@ -487,7 +487,7 @@ val _ = Env.containerV_one "domain"
                                               "master" => TextIO.output (outf, "\tallow-update { none; };\n")
                                             | _ => (TextIO.output (outf, "\tmasters { ");
                                                     TextIO.output (outf, masterIp);
                                               "master" => TextIO.output (outf, "\tallow-update { none; };\n")
                                             | _ => (TextIO.output (outf, "\tmasters { ");
                                                     TextIO.output (outf, masterIp);
-                                                    TextIO.output (outf, " };\n"));
+                                                    TextIO.output (outf, "; };\n"));
                                           TextIO.output (outf, "};\n");
                                           TextIO.closeOut outf
                                       end
                                           TextIO.output (outf, "};\n");
                                           TextIO.closeOut outf
                                       end