X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/050655b6e056c024e410e26165a40f125e53b9ed..b25161c70648676e61db4eead37a84f460182576:/src/domain.sml diff --git a/src/domain.sml b/src/domain.sml index b192236..ed26bcd 100644 --- 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 := NONE; - !befores dom - end + | _ => masterNode := NONE + end; + !befores dom end, fn () => !afters (!current))