Run 'domain' initialization even with 'noDns' is selected.

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

diff --git a/src/domain.sml b/src/domain.sml
index b192236..ed26bcd 100644 (file)
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -584,9 +584,9 @@ val _ = Env.containerV_one "domain"
                                               (masterNode := SOME node;
                                                saveSoa ("master", #soa dns) node;
                                                saveNamed ("master", #soa dns, masterIp, slaveIps) node)
                                               (masterNode := SOME node;
                                                saveSoa ("master", #soa dns) node;
                                                saveNamed ("master", #soa dns, masterIp, slaveIps) node)

-                                            | _ => masterNode := NONE;
-                                          !befores dom
-                                      end
+                                            | _ => masterNode := NONE
+                                      end;
+                                  !befores dom

                               end,
                            fn () => !afters (!current))
 
                               end,
                            fn () => !afters (!current))