!7

concept Rule {
  S globalID = aGlobalIDUnlessLoading();
  S text;
  S comments;
}

// Bug when making cmodule
module Rules > DynCRUD<Rule> {
  start {
    crud.multiLineFields = litset('text, 'comments);
  }
  
  // API
  
  Pair<S, Bool> addRule(S when, S then) {
    ret addRule(when + "\n=> " + then);
  }
  
  Pair<S, Bool> addRule(S text) {
    Pair<Rule, Bool> p = uniq2_sync(Rule, +text);
    if (p.b) vmBus_sendMessage('gazelleRuleCreated, this, rule);
    ret pair(p.a.globalID, p.b);
  }
}