lanonna/pam/bin/datatypes.ml
2024-03-16 09:34:29 +01:00

19 lines
414 B
OCaml

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}"]