!7

concept User {
  long userID;
  S name;
  
  toString { ret name; }
}

concept Channel {
  long channelID;
  S name;
  
  toString { ret name; }
}

sclass Reaction {
  User user;
  S emoji;
}

concept Line {
  long msgID;
  bool bot, isPrivate;
  Channel channel;
  User author;
  S text;
  new L<Reaction> reactions;
}

cmodule GLines > DynCRUD<Line> {
  // API
  
  User uniqUser(long userID) {
    ret uniq_sync User(+userID);
  }
  
  Channel uniqChannel(long channelID) {
    ret uniq_sync Channel(+channelID);
  }
  
  Reaction nuReaction(O... params) {
    ret nu Reaction(params);
  }
}