lanonna/pam/bin/datatypes.ml

type reminder = { (* from an issue in forgejo get a reminder *)
  url: string;
  title: string;
  due_date: string ;
}

type client_id = | MqClient | HttpClient

type Riot.Message.t +=
  | RegisterClient of (client_id * Riot.Pid.t)
  | LookupClient of client_id
  | ReceivedFromMq of string
  | ListIssues 
  | ForgejoIssues of reminder list
  | ForgejoError of string
  | InternalFailure of string

let forgejo_issues lst = ForgejoIssues lst
let forgejo_error reason = ForgejoError reason