lanonna/pam/bin/datatypes.ml

27 lines
585 B
OCaml
Raw Normal View History

2024-04-02 14:38:00 +02:00
type client_id = | MqClient | HttpClient
module MatrixRoom = struct
type t = string
let make str = str
end
2024-03-16 09:34:29 +01:00
type reminder = { (* from an issue in forgejo get a reminder *)
url: string;
title: string;
2024-04-17 18:18:19 +02:00
due_date: string option;
2024-04-02 14:38:00 +02:00
body: string;
matrix_target: MatrixRoom.t
2024-03-16 09:34:29 +01:00
}
type Riot.Message.t +=
2024-03-25 14:17:34 +01:00
| RegisterClient of (client_id * Riot.Pid.t)
| LookupClient of client_id
| ListIssues
2024-03-16 09:34:29 +01:00
| ForgejoIssues of reminder list
| ForgejoError of string
| InternalFailure of string
let forgejo_issues lst = ForgejoIssues lst
let forgejo_error reason = ForgejoError reason