type reminder = { (* from an issue in forgejo get a reminder *) url: string; title: string; due_date: string ; } type Riot.Message.t += | ReceivedFromMq of string | WebReq | ForgejoIssues of reminder list | ForgejoError of string | InternalFailure of string let forgejo_issues lst = ForgejoIssues lst let forgejo_error reason = ForgejoError reason let of_reminder r = [%string "%{r.title}"]