lanonna/pam/lib/datatypes.ml

type client_id = | MqClient | HttpClient

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

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

type Riot.Message.t +=
  | RegisterClient of (client_id * Riot.Pid.t)
  | LookupClient of client_id
  | ListIssues
  | Reminder of forgejo_issue_data 
  | InternalFailure of (MatrixRoom.t * string)

let forgejo_issues issues = issues |> List.map (fun r -> Reminder r)
let internal_failure matrix_room reason = InternalFailure (matrix_room, reason)