lanonna/pam/bin/datatypes.ml

type client_id = | MqClient | HttpClient

module MatrixRoom = struct
  type t = string
  let make str = str
end

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

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