20 lines
414 B
OCaml
20 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}"]
|