quartz55/discopotty - Change B22T6OTOYMTCUQJGC4DVNB2FNKIYQHLU3I7H2OBWTNLX5WT2Y5RQC

Cleanup + Model types & (de)serialzers

Created by quartz55 on April 9, 2021

B22T6OTOYMTCUQJGC4DVNB2FNKIYQHLU3I7H2OBWTNLX5WT2Y5RQC

Dependencies

In channels

main

Change contents

Replacement in bin/bot/discopotty.ml at line 23 [3.153]

B:BD[3.2212] → [4.1638:1707]

  | D.Events.MessageCreate { content; channel_id; guild_id; _ } -> (

[3.2212]

[3.2271]

  | D.Events.Message_create { content; channel_id; guild_id; _ } -> (

Replacement in docs/notebook.org at line 76 [3.3684]

B:BD[4.5478] → [4.5478:5527]

I'm inclined towards sqlite+caqti based approach

[4.5478]

[3.4815]

I'm inclined towards a sqlite+caqti based approach

Insertion in docs/notebook.org at line 105 [3.3684]
[4.5963]
[3.5400]
```
---------
```

Insertion in docs/notebook.org at line 108 [3.3684]

[3.5401]

* DOING Model types & (de)serializers
** DOING Complete Payloads types & (de)serializers

Insertion in docs/notebook.org at line 164 [3.3684]

[3.6982]

* TODO HTTP API implementation
Doesn't have to be fully done, just comprehensive enough for now.
---------

Deletion in lib/audio_stream.ml at line 6 [4.97161]
B:BD[4.97247] → [4.97247:97313]
```
let _SAMPLE_RATE = 48000
let _CHANNELS = 2
let _FRAME_LEN = 20
```

Deletion in lib/audio_stream.ml at line 7 [4.97161]

B:BD[4.97314] → [4.97314:97633]

let _FRAME_SIZE = _SAMPLE_RATE / 1000 * _FRAME_LEN
(** Maximum packet size for a voice packet.
 Set a safe amount below the Ethernet MTU to avoid fragmentation/rejection. *)
let _VOICE_PACKET_MAX = 1460
(* https://tools.ietf.org/html/rfc7587#section-4.2 *)
let ts_incr = Uint32.of_int @@ (48000 / 1000 * _FRAME_LEN)

Replacement in lib/audio_stream.ml at line 149 [4.97161]

B:BD[4.102419] → [4.102419:102491]

          let buf = Bigstringaf.create (_FRAME_SIZE * _CHANNELS * 2) in

[4.102419]

[4.102491]

          let buf = Bigstringaf.create (Rtp._FRAME_SIZE * Rtp._CHANNELS * 2) in

Replacement in lib/audio_stream.ml at line 153 [4.97161]

B:BD[4.102594] → [4.102594:102665]

              Parser.s16le ~channels:_CHANNELS ~frame_size:_FRAME_SIZE

[4.102594]

[4.102665]

              Parser.s16le ~channels:Rtp._CHANNELS ~frame_size:Rtp._FRAME_SIZE

Replacement in lib/events.ml at line 7 [3.523298]
∅:D[4.106131] → [3.523393:523433]
B:BD[3.523393] → [3.523393:523433]
```
    (* guilds : Models.Guild.t list; *)
```
[4.106131]
[3.523433]
```
    guilds : Models.Guild.unavailable list;
```
Insertion in lib/events.ml at line 10 [3.523298]
[3.523507]
[4.106132]
```
    application : Models.Application.partial;
```

Replacement in lib/events.ml at line 12 [3.523298]

B:BD[4.106136] → [4.106136:106188]

  [@@deriving yojson] [@@yojson.allow_extra_fields]

[4.106136]

[4.106188]

  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]

Replacement in lib/events.ml at line 15 [3.523298]
B:BD[4.106193] → [4.106193:106220]
```
module VoiceState = struct
```
[4.106193]
[4.106220]
```
module Voice_state = struct
```

Replacement in lib/events.ml at line 20 [3.523298]

B:BD[4.106370] → [4.106370:106420]

    (* member: guild option; [@yojson.option]; *)

[4.106370]

[4.106420]

    member : Models.Guild_member.t option; [@yojson.option]

Replacement in lib/events.ml at line 30 [3.523298]

B:BD[3.523511] → [3.523511:523563]

  [@@deriving yojson] [@@yojson.allow_extra_fields]

[3.523511]

[3.523563]

  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]

Replacement in lib/events.ml at line 33 [3.523298]
B:BD[3.523568] → [4.106616:106650]
```
module VoiceServerUpdate = struct
```
[3.523568]
[4.106650]
```
module Voice_server_update = struct
```

Replacement in lib/events.ml at line 35 [3.523298]

B:BD[4.106730] → [4.106730:106782]

  [@@deriving yojson] [@@yojson.allow_extra_fields]

[4.106730]

[4.106782]

  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Channel_pins_update = struct
  type t = {
    guild_id : Models.Snowflake.t option; [@yojson.option]
    channel_id : Models.Snowflake.t;
    last_pin_timestamp : int option option; [@yojson.option]
  }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Guild_user = struct
  type t = { guild_id : Models.Snowflake.t; user : Models.User.t }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Guild_emojis = struct
  type t = { guild_id : Models.Snowflake.t; emojis : Models.Emoji.t list }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Guild_member_update = struct
  type t = {
    guild_id : Models.Snowflake.t;
    roles : Models.Snowflake.t list;
    user : Models.User.t;
    nick : string option option; [@yojson.option]
    joined_at : string;
    premium_since : string option option; [@yojson.option]
    pending : bool option; [@yojson.option]
  }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Presence = struct
  type t = {
    user : Models.User.partial;
    guild_id : Models.Snowflake.t;
    status : Models.Presence_status.unsupported;
    activities : Models.Activity.t list;
    client_status : client_status;
  }
  and client_status = {
    desktop : Models.Presence_status.unsupported option; [@yojson]
    mobile : Models.Presence_status.unsupported option; [@yojson]
    web : Models.Presence_status.unsupported option; [@yojson]
  }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Guild_members_chunk = struct
  type t = {
    guild_id : Models.Snowflake.t;
    members : Models.Guild_member.t list;
    chunk_index : int;
    chunk_count : int;
    not_found : Models.Snowflake.t list option; [@yojson.option]
    presences : Presence.t list option; [@yojson.option]
    nonce : string option; [@yojson.option]
  }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Guild_role = struct
  type t = { guild_id : Models.Snowflake.t; role : Models.Role.t }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Guild_role_id = struct
  type t = { guild_id : Models.Snowflake.t; role_id : Models.Snowflake.t }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
type guild_obj = { guild_id : Models.Snowflake.t }
[@@deriving yojson, show] [@@yojson.allow_extra]
module Message_delete = struct
  type t = {
    id : Models.Snowflake.t;
    channel_id : Models.Snowflake.t;
    guild_id : Models.Snowflake.t option; [@yojson.option]
  }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Message_delete_bulk = struct
  type t = {
    ids : Models.Snowflake.t list;
    channel_id : Models.Snowflake.t;
    guild_id : Models.Snowflake.t option; [@yojson.option]
  }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Message_reaction_add = struct
  type t = {
    user_id : Models.Snowflake.t;
    channel_id : Models.Snowflake.t;
    message_id : Models.Snowflake.t;
    guild_id : Models.Snowflake.t option; [@yojson.option]
    member : Models.Guild_member.t option; [@yojson.option]
    emoji : Models.Emoji.reaction;
  }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Message_reaction_remove = struct
  type t = {
    user_id : Models.Snowflake.t;
    channel_id : Models.Snowflake.t;
    message_id : Models.Snowflake.t;
    guild_id : Models.Snowflake.t option; [@yojson.option]
    emoji : Models.Emoji.reaction;
  }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Message_reaction_remove_all = struct
  type t = {
    channel_id : Models.Snowflake.t;
    message_id : Models.Snowflake.t;
    guild_id : Models.Snowflake.t option; [@yojson.option]
  }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Message_reaction_remove_emoji = struct
  type t = {
    channel_id : Models.Snowflake.t;
    message_id : Models.Snowflake.t;
    guild_id : Models.Snowflake.t option; [@yojson.option]
    emoji : Models.Emoji.reaction;
  }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
end
module Typing_start = struct
  type t = {
    channel_id : Models.Snowflake.t;
    guild_id : Models.Snowflake.t option; [@yojson.option]
    user_id : Models.Snowflake.t;
    timestamp : int;
    member : Models.Guild_member.t option; [@yojson.option]
  }
  [@@deriving of_yojson, show] [@@yojson.allow_extra_fields]

Insertion in lib/events.ml at line 185 [3.523298]
[3.523577]
[3.523577]
```
  (* protocol *)
```
Deletion in lib/events.ml at line 187 [3.523298]
B:BD[3.523598] → [3.523598:523636]
```
  | MessageCreate of Models.Message.t
```

Replacement in lib/events.ml at line 188 [3.523298]

B:BD[3.523648] → [4.106788:106870]

  | VoiceStateUpdate of VoiceState.t
  | VoiceServerUpdate of VoiceServerUpdate.t

[3.523648]

  (* channels *)
  | Channel_create of Models.Channel.t
  | Channel_update of Models.Channel.t
  | Channel_delete of Models.Channel.t
  | Channel_pins_update of Channel_pins_update.t
  (* guilds *)
  | Guild_create of Models.Guild.t
  | Guild_update of Models.Guild.t
  | Guild_delete of Models.Guild.unavailable
  | Guild_ban_add of Guild_user.t
  | Guild_ban_remove of Guild_user.t
  | Guild_emojis_update of Guild_emojis.t
  | Guild_integrations_update of Models.Snowflake.t
  | Guild_member_add of {
      guild_id : Models.Snowflake.t;
      member : Models.Guild_member.t;
    }
  | Guild_member_remove of Guild_user.t
  | Guild_member_update of Guild_member_update.t
  | Guild_members_chunk of Guild_members_chunk.t
  | Guild_role_create of Guild_role.t
  | Guild_role_update of Guild_role.t
  | Guild_role_delete of Guild_role_id.t
  (* TODO invites *)
  | Invite_create
  | Invite_delete
  (* messages *)
  | Message_create of Models.Message.t
  | Message_update of Models.Message.partial
  | Message_delete of Message_delete.t
  | Message_delete_bulk of Message_delete_bulk.t
  | Message_reaction_add of Message_reaction_add.t
  | Message_reaction_remove of Message_reaction_remove.t
  | Message_reaction_remove_all of Message_reaction_remove_all.t
  | Message_reaction_remove_emoji of Message_reaction_remove_emoji.t
  (* users *)
  | Presence_update of Presence.t
  | Typing_start of Typing_start.t
  | User_update of Models.User.t
  (* voice *)
  | Voice_state_update of Voice_state.t
  | Voice_server_update of Voice_server_update.t
  (* TODO webhooks *)
  | Webhooks_update
  (* TODO commands *)
  | Application_command_create
  | Application_command_update
  | Application_command_delete
  (* TODO interactions *)
  | Interaction_create

Insertion in lib/events.ml at line 239 [3.523298]
[3.523697]
[3.523697]
```
[@@deriving show]
```
Insertion in lib/events.ml at line 243 [3.523298]
[3.523748]
[3.523748]
```
  (* protocol *)
```
Deletion in lib/events.ml at line 245 [3.523298]
B:BD[3.523799] → [3.523799:523876]
```
  | "MESSAGE_CREATE", Some d -> MessageCreate (Models.Message.t_of_yojson d)
```

Replacement in lib/events.ml at line 246 [3.523298]

B:BD[3.523904] → [4.106871:106951]

  | "VOICE_STATE_UPDATE", Some d -> VoiceStateUpdate (VoiceState.t_of_yojson d)

[3.523904]

[4.106951]

  (* channels *)
  | "CHANNEL_CREATE", Some d -> Channel_create (Models.Channel.t_of_yojson d)
  | "CHANNEL_UPDATE", Some d -> Channel_update (Models.Channel.t_of_yojson d)
  | "CHANNEL_DELETE", Some d -> Channel_delete (Models.Channel.t_of_yojson d)
  | "CHANNEL_PINS_UPDATE", Some d ->
      Channel_pins_update (Channel_pins_update.t_of_yojson d)
  (* guilds *)
  | "GUILD_CREATE", Some d -> Guild_create (Models.Guild.t_of_yojson d)
  | "GUILD_UPDATE", Some d -> Guild_update (Models.Guild.t_of_yojson d)
  | "GUILD_DELETE", Some d ->
      Guild_delete (Models.Guild.unavailable_of_yojson d)
  | "GUILD_BAN_ADD", Some d -> Guild_ban_add (Guild_user.t_of_yojson d)
  | "GUILD_BAN_REMOVE", Some d -> Guild_ban_remove (Guild_user.t_of_yojson d)
  | "GUILD_EMOJIS_UPDATE", Some d ->
      Guild_emojis_update (Guild_emojis.t_of_yojson d)
  | "GUILD_INTEGRATIONS_UPDATE", Some d ->
      let { guild_id } = guild_obj_of_yojson d in
      Guild_integrations_update guild_id
  | "GUILD_MEMBER_ADD", Some d ->
      let { guild_id } = guild_obj_of_yojson d in
      Guild_member_add { guild_id; member = Models.Guild_member.t_of_yojson d }
  | "GUILD_MEMBER_REMOVE", Some d ->
      Guild_member_remove (Guild_user.t_of_yojson d)
  | "GUILD_MEMBER_UPDATE", Some d ->
      Guild_member_update (Guild_member_update.t_of_yojson d)
  | "GUILD_MEMBERS_CHUNK", Some d ->
      Guild_members_chunk (Guild_members_chunk.t_of_yojson d)
  | "GUILD_ROLE_CREATE", Some d -> Guild_role_create (Guild_role.t_of_yojson d)
  | "GUILD_ROLE_UPDATE", Some d -> Guild_role_update (Guild_role.t_of_yojson d)
  | "GUILD_ROLE_DELETE", Some d ->
      Guild_role_delete (Guild_role_id.t_of_yojson d)
  (* TODO invites *)
  | "INVITE_CREATE", _ -> Invite_create
  | "INVITE_DELETE", _ -> Invite_delete
  (* messages *)
  | "MESSAGE_CREATE", Some d -> Message_create (Models.Message.t_of_yojson d)
  | "MESSAGE_UPDATE", Some d ->
      Message_update (Models.Message.partial_of_yojson d)
  | "MESSAGE_DELETE", Some d -> Message_delete (Message_delete.t_of_yojson d)
  | "MESSAGE_DELETE_BULK", Some d ->
      Message_delete_bulk (Message_delete_bulk.t_of_yojson d)
  | "MESSAGE_CREATION_ADD", Some d ->
      Message_reaction_add (Message_reaction_add.t_of_yojson d)
  | "MESSAGE_CREATION_REMOVE", Some d ->
      Message_reaction_remove (Message_reaction_remove.t_of_yojson d)
  | "MESSAGE_CREATION_REMOVE_ALL", Some d ->
      Message_reaction_remove_all (Message_reaction_remove_all.t_of_yojson d)
  | "MESSAGE_CREATION_REMOVE_EMOJI", Some d ->
      Message_reaction_remove_emoji
        (Message_reaction_remove_emoji.t_of_yojson d)
  (* users *)
  | "PRESENCE_UPDATE", Some d -> Presence_update (Presence.t_of_yojson d)
  | "TYPING_START", Some d -> Typing_start (Typing_start.t_of_yojson d)
  | "USER_UPDATE", Some d -> User_update (Models.User.t_of_yojson d)
  (* voice *)
  | "VOICE_STATE_UPDATE", Some d ->
      Voice_state_update (Voice_state.t_of_yojson d)

Replacement in lib/events.ml at line 304 [3.523298]

B:BD[4.106988] → [4.106988:107046]

      VoiceServerUpdate (VoiceServerUpdate.t_of_yojson d)

[4.106988]

[3.523904]

      Voice_server_update (Voice_server_update.t_of_yojson d)
  (* TODO webhooks *)
  | "WEBHOOKS_UPDATE", _ -> Webhooks_update
  (* TODO commands *)
  | "APPLICATION_COMMAND_CREATE", _ -> Application_command_create
  | "APPLICATION_COMMAND_UPDATE", _ -> Application_command_update
  | "APPLICATION_COMMAND_DELETE", _ -> Application_command_delete
  (* TODO interactions *)
  | "INTERACTION_CREATE", _ -> Interaction_create

Replacement in lib/gateway.ml at line 83 [3.523979]

B:BD[4.108555] → [4.108555:108635]

        { Events.VoiceState.guild_id = guild; channel_id = chan; user_id; _ } =

[4.108555]

[4.108635]

        { Events.Voice_state.guild_id = guild; channel_id = chan; user_id; _ } =

Replacement in lib/gateway.ml at line 89 [3.523979]

B:BD[4.108799] → [4.108799:108869]

    let is_own_srv { Events.VoiceServerUpdate.guild_id = guild; _ } =

[4.108799]

[4.108869]

    let is_own_srv { Events.Voice_server_update.guild_id = guild; _ } =

Replacement in lib/gateway.ml at line 97 [3.523979]

B:BD[4.109071] → [4.109071:109120]

        | Some (VoiceStateUpdate st), _, None ->

[4.109071]

[4.109120]

        | Some (Voice_state_update st), _, None ->

Replacement in lib/gateway.ml at line 100 [3.523979]

B:BD[4.109199] → [4.109199:109250]

        | Some (VoiceServerUpdate srv), None, _ ->

[4.109199]

[4.109250]

        | Some (Voice_server_update srv), None, _ ->

Replacement in lib/gateway.ml at line 103 [3.523979]

B:BD[4.109330] → [4.109330:109434]

        | Some (VoiceStateUpdate st), _, Some srv
        | Some (VoiceServerUpdate srv), Some st, _ ->

[4.109330]

[4.109434]

        | Some (Voice_state_update st), _, Some srv
        | Some (Voice_server_update srv), Some st, _ ->

Replacement in lib/gateway.ml at line 110 [3.523979]

B:BD[4.109581] → [4.109581:109701]

             | Events.VoiceStateUpdate st -> is_own_vs st
             | Events.VoiceServerUpdate srv -> is_own_srv srv

[4.109581]

[4.109701]

             | Events.Voice_state_update st -> is_own_vs st
             | Events.Voice_server_update srv -> is_own_srv srv

Insertion in lib/gateway_payload.ml at line 60 [3.525192]
[3.526429]
[3.526429]
```
  let show = Format.asprintf "%a" pp
```
Deletion in lib/gateway_payload.ml at line 67 [3.525192]
B:BD[3.526492] → [3.526492:526517]
```
    intents : Intents.t;
```
Insertion in lib/gateway_payload.ml at line 72 [3.525192]
[3.526747]
[3.526747]
```
    intents : Intents.t;
```
Deletion in lib/gateway_payload.ml at line 74 [3.525192]
B:BD[3.526751] → [3.526751:526783]
```
  [@@yojson.allow_extra_fields]
```
Replacement in lib/gateway_payload.ml at line 80 [3.525192]
B:BD[3.526917] → [3.526917:526969]
```
  [@@yojson.allow_extra_fields] [@@deriving yojson]
```
[3.526917]
[3.526969]
```
  [@@deriving yojson_of, show]
```
Replacement in lib/gateway_payload.ml at line 118 [3.525192]
B:BD[3.527959] → [3.527959:528011]
```
  [@@deriving yojson] [@@yojson.allow_extra_fields]
```
[3.527959]
[3.528011]
```
  [@@deriving yojson_of, show]
```

Deletion in lib/gateway_payload.ml at line 124 [3.525192]

B:BD[3.528055] → [3.528055:528145]

  type status = [ `Online | `Dnd | `Idle | `Invisible | `Offline ]
  [@@deriving yojson]

Replacement in lib/gateway_payload.ml at line 126 [3.525192]

B:BD[3.528199] → [3.528199:528260]

    (* activities: Activity.t array; *)
    status : status;

[3.528199]

[3.528260]

    activities : Models.Activity.t list;
    status : Models.Presence_status.t;

Replacement in lib/gateway_payload.ml at line 130 [3.525192]
B:BD[3.528280] → [3.528280:528302]
```
  [@@deriving yojson]
```
[3.528280]
[3.528302]
```
  [@@deriving yojson_of, show]
```

Replacement in lib/gateway_payload.ml at line 132 [3.525192]

B:BD[3.528303] → [3.528303:528358]

  let make ?since ~afk status = { since; status; afk }

[3.528303]

[3.528358]

  let make ?since ?(activities = []) ~afk status =
    { since; activities; status; afk }

Replacement in lib/gateway_payload.ml at line 136 [3.525192]
B:BD[3.528363] → [3.528363:528390]
```
module VoiceState = struct
```
[3.528363]
[3.528390]
```
module Voice_state = struct
```
Replacement in lib/gateway_payload.ml at line 143 [3.525192]
B:BD[3.528530] → [3.528530:528552]
```
  [@@deriving yojson]
```
[3.528530]
[3.528552]
```
  [@@deriving yojson_of, show]
```
Replacement in lib/gateway_payload.ml at line 149 [3.525192]
B:BD[4.111620] → [4.111620:111656]
```
module GuildRequestMembers = struct
```
[4.111620]
[4.111656]
```
module Guild_request_members = struct
```
Replacement in lib/gateway_payload.ml at line 158 [3.525192]
B:BD[4.111923] → [4.111923:111951]
```
  [@@deriving yojson, show]
```
[4.111923]
[4.111951]
```
  [@@deriving yojson_of, show]
```

Replacement in lib/gateway_payload.ml at line 190 [3.525192]

B:BD[3.528957] → [3.528957:529053]

  | PresenceUpdate : Presence.t -> Dir.send t
  | VoiceStateUpdate : VoiceState.t -> Dir.send t

[3.528957]

[3.529053]

  | Presence_update : Presence.t -> Dir.send t
  | Voice_state_update : Voice_state.t -> Dir.send t

Replacement in lib/gateway_payload.ml at line 194 [3.525192]

B:BD[3.529116] → [4.112480:112542]

∅:D[4.112542] → [3.529153:529193]

B:BD[3.529153] → [3.529153:529193]

  | RequestGuildMembers : GuildRequestMembers.t -> Dir.send t
  | InvalidSession : bool -> Dir.recv t

[3.529116]

[3.529193]

  | Request_guild_members : Guild_request_members.t -> Dir.send t
  | Invalid_session : bool -> Dir.recv t

Replacement in lib/gateway_payload.ml at line 197 [3.525192]
B:BD[3.529223] → [3.529223:529253]
```
  | HeartbeatACK : Dir.recv t
```
[3.529223]
[3.529253]
```
  | Heartbeat_ack : Dir.recv t
```

Replacement in lib/gateway_payload.ml at line 208 [3.525192]

B:BD[3.529436] → [3.529436:529494]

    | PresenceUpdate _ -> 3
    | VoiceStateUpdate _ -> 4

[3.529436]

[3.529494]

    | Presence_update _ -> 3
    | Voice_state_update _ -> 4

Replacement in lib/gateway_payload.ml at line 212 [3.525192]
B:BD[3.529535] → [4.112543:112576]
∅:D[4.112576] → [3.529566:529594]
B:BD[3.529566] → [3.529566:529594]
```
    | RequestGuildMembers _ -> 8
    | InvalidSession _ -> 9
```
[3.529535]
[3.529594]
```
    | Request_guild_members _ -> 8
    | Invalid_session _ -> 9
```
Replacement in lib/gateway_payload.ml at line 215 [3.525192]
B:BD[3.529614] → [3.529614:529639]
```
    | HeartbeatACK -> 11
```
[3.529614]
[3.529639]
```
    | Heartbeat_ack -> 11
```

Replacement in lib/gateway_payload.ml at line 229 [3.525192]

B:BD[3.530034] → [3.530034:530091]

    | 9, Some d -> InvalidSession ([%of_yojson: bool] d)

[3.530034]

[3.530091]

    | 9, Some d -> Invalid_session ([%of_yojson: bool] d)

Replacement in lib/gateway_payload.ml at line 233 [3.525192]

B:BD[3.530147] → [3.530147:530220]

              "got InvalidSession payload without 'resumable' boolean, \

[3.530147]

[3.530220]

              "got Invalid_session payload without 'resumable' boolean, \

Replacement in lib/gateway_payload.ml at line 235 [3.525192]
B:BD[3.530258] → [3.530258:530287]
```
        InvalidSession false
```
[3.530258]
[3.530287]
```
        Invalid_session false
```
Replacement in lib/gateway_payload.ml at line 242 [3.525192]
B:BD[3.530499] → [3.530499:530527]
```
    | 11, _ -> HeartbeatACK
```
[3.530499]
[3.530527]
```
    | 11, _ -> Heartbeat_ack
```

Replacement in lib/gateway_payload.ml at line 254 [3.525192]

B:BD[3.530849] → [3.530849:530985]

    | PresenceUpdate d -> Raw.make ~d:(Presence.yojson_of_t d) ()
    | VoiceStateUpdate d -> Raw.make ~d:(VoiceState.yojson_of_t d) ()

[3.530849]

[3.530985]

    | Presence_update d -> Raw.make ~d:(Presence.yojson_of_t d) ()
    | Voice_state_update d -> Raw.make ~d:(Voice_state.yojson_of_t d) ()

Replacement in lib/gateway_payload.ml at line 257 [3.525192]

B:BD[3.531041] → [4.112629:112719]

    | RequestGuildMembers d ->
        Raw.make ~d:(GuildRequestMembers.yojson_of_t d) ()

[3.531041]

[3.531082]

    | Request_guild_members d ->
        Raw.make ~d:(Guild_request_members.yojson_of_t d) ()

Replacement in lib/gateway_payload.ml at line 270 [3.525192]
B:BD[3.531394] → [3.531394:531446]
```
  PresenceUpdate (Presence.make ?since ~afk status)
```
[3.531394]
[3.531446]
```
  Presence_update (Presence.make ?since ~afk status)
```

Replacement in lib/gateway_payload.ml at line 273 [3.525192]

B:BD[3.531520] → [3.531520:531600]

  VoiceStateUpdate (VoiceState.make ?channel_id ~self_mute ~self_deaf guild_id)

[3.531520]

[3.531600]

  Voice_state_update
    (Voice_state.make ?channel_id ~self_mute ~self_deaf guild_id)

Replacement in lib/gateway_payload.ml at line 279 [3.525192]

B:BD[4.112784] → [4.112784:112863]

  RequestGuildMembers (GuildRequestMembers.make ?presences ?nonce ~q guild_id)

[4.112784]

  Request_guild_members
    (Guild_request_members.make ?presences ?nonce ~q guild_id)

File addition: activity.ml (----------)

[3.534184]

type t = {
  name : string;
  typ : int; [@key "type"]
  url : string option option; [@yojson.option]
  created_at : int;
  timestamps : timestamps option; [@yojson.option]
  application_id : Snowflake.t option; [@yojson.option]
  details : string option option; [@yojson.option]
  state : string option option; [@yojson.option]
  emoji : Emoji.t option option; [@yojson.option]
  (* party : Party.t option; [@yojson.option] *)
  (* assets : Assets.t option; [@yojson.option] *)
  (* secrets : Secrets.t option; [@yojson.option] *)
  instance : bool option; [@yojson.option]
  flags : int option; [@yojson.option]
}
[@@yojson.allow_extra_fields]
and timestamps = { start : int; end_ : int [@key "end"] }
[@@deriving yojson, show] [@@yojson.allow_extra_fields]

File addition: application.ml (----------)

[3.534184]

type partial = { id : Snowflake.t; flags : int }
[@@deriving yojson, show] [@@yojson.allow_extra_fields]

File addition: channel.ml (----------)

[3.534184]

module Overwrite = struct
  type t = {
    id : Snowflake.t;
    typ : int; [@key "type"]
    allow : string;
    deny : string;
  }
  [@@deriving yojson, show] [@@yojson.allow_extra_fields]
end
type t = {
  id : Snowflake.t;
  typ : int; [@key "type"]
  guild_id : Snowflake.t option; [@yojson.option]
  position : int option; [@yojson.option]
  permission_overwrites : overwrite list option; [@yojson.option]
  name : string option; [@yojson.option]
  topic : string option option; [@yojson.option]
  nsfw : bool option; [@yojson.option]
  last_message_id : Snowflake.t option option; [@yojson.option]
  bitrate : int option; [@yojson.option]
  user_limit : int option; [@yojson.option]
  rate_limit_per_user : int option; [@yojson.option]
  recipients : User.t option; [@yojson.option]
  icon : string option option; [@yojson.option]
  owner_id : Snowflake.t option; [@yojson.option]
  application_id : Snowflake.t option; [@yojson.option]
  parent_id : Snowflake.t option; [@yojson.option]
  last_pin_timestamp : string option option; [@yojson.option]
}
[@@yojson.allow_extra_fields]
and overwrite = Overwrite.t [@@deriving yojson, show]

File addition: emoji.ml (----------)

[3.534184]

type t = {
  id : Snowflake.t option;
  name : string;
  roles : Snowflake.t list option; [@yojson.option]
  user : User.t option; [@yojson.option]
  require_colons : bool option; [@yojson.option]
  managed : bool option; [@yojson.option]
  animated : bool option; [@yojson.option]
  available : bool option; [@yojson.option]
}
[@@deriving yojson, show] [@@yojson.allow_extra_fields]
type reaction = {
  id : Snowflake.t option;
  name : string option;
  animated : bool option; [@yojson.option]
}
[@@deriving yojson, show] [@@yojson.allow_extra_fields]

Replacement in lib/models/guild.ml at line 1 [3.534420]

B:BD[3.534420] → [3.534421:534428]

type t

[3.534420]

module Feature = struct
  type t =
    [ `Invite_splash
    | `Vip_regions
    | `Vanity_url
    | `Verified
    | `Partnered
    | `Community
    | `Commerce
    | `News
    | `Discoverable
    | `Featurable
    | `Animated_icon
    | `Banner
    | `Welcome_screen_enabled
    | `Member_verification_gate_enabled
    | `Preview_enabled
    | `Unknown of string ]
  [@@deriving show]
  let t_of_yojson : Yojson.Safe.t -> t = function
    | `String "INVITE_SPLASH" -> `Invite_splash
    | `String "VIP_REGIONS" -> `Vip_regions
    | `String "VANITY_URL" -> `Vanity_url
    | `String "VERIFIED" -> `Verified
    | `String "PARTNERED" -> `Partnered
    | `String "COMMUNITY" -> `Community
    | `String "COMMERCE" -> `Commerce
    | `String "NEWS" -> `News
    | `String "DISCOVERABLE" -> `Discoverable
    | `String "FEATURABLE" -> `Featurable
    | `String "ANIMATED_ICON" -> `Animated_icon
    | `String "BANNER" -> `Banner
    | `String "WELCOME_SCREEN_ENABLED" -> `Welcome_screen_enabled
    | `String "MEMBER_VERIFICATION_GATE_ENABLED" ->
        `Member_verification_gate_enabled
    | `String "PREVIEW_ENABLED" -> `Preview_enabled
    | `String other -> `Unknown other
    | _ -> invalid_arg "expected string"
end
module Welcome_screen = struct
  module Channel = struct
    type t = {
      channel_id : Snowflake.t;
      description : string;
      emoji_id : Snowflake.t option;
      emoji_name : string option;
    }
    [@@deriving yojson, show] [@@yojson.allow_extra_fields]
  end
  type t = { description : string option; welcome_channels : channel list }
  [@@deriving yojson, show] [@@yojson.allow_extra_fields]
  and channel = Channel.t
end
type t = {
  id : Snowflake.t;
  name : string;
  icon : string option;
  icon_hash : string option option; [@yojson.option]
  splash : string option;
  discovery_splash : string option;
  owner_id : Snowflake.t;
  region : string;
  afk_channel_id : Snowflake.t option;
  afk_timeout : int;
  widget_enabled : bool option; [@yojson.option]
  widget_channel_id : Snowflake.t option option; [@yojson.option]
  verification_level : int;
  default_message_notifications : int;
  explicit_content_filter : int;
  roles : Role.t list;
  emojis : Emoji.t list;
  features : Feature.t list;
  mfa_level : int;
  application_id : Snowflake.t option;
  system_channel_id : Snowflake.t option;
  system_channel_flags : int;
  rules_channel_id : Snowflake.t option;
  max_presences : int option option; [@yojson.option]
  max_members : int option; [@yojson.option]
  vanity_url_code : string option;
  description : string option;
  banner : string option;
  premium_tier : int;
  premium_subscription_count : int option; [@yojson.option]
  preferred_locale : string;
  public_updates_channel_id : Snowflake.t option;
  max_video_channel_users : int option; [@yojson.option]
  approximate_member_count : int option; [@yojson.option]
  approximate_presence_count : int option; [@yojson.option]
  welcome_screen : Welcome_screen.t option; [@yojson.option]
}
[@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
type unavailable = { id : Snowflake.t; unavailable : bool }
[@@deriving yojson, show] [@@yojson.allow_extra_fields]

File addition: guild_member.ml (----------)

[3.534184]

type t = {
  user : User.t option; [@yojson.option]
  nick : string option option; [@yojson.option]
  roles : Snowflake.t list;
  joined_at : string;
  premium_since : string option option; [@yojson.option]
  deaf : bool;
  mute : bool;
  pending : bool option; [@yojson.option]
  permissions : string option; [@yojson.option]
}
[@@deriving yojson, show] [@@yojson.allow_extra_fields]

Insertion in lib/models/message.ml at line 1 [3.534463]

[3.534463]

[3.534464]

module Channel_mention = struct
  type t = {
    id : Snowflake.t;
    guild_id : Snowflake.t;
    typ : int; [@key "type"]
    name : string;
  }
  [@@deriving yojson, show] [@@yojson.allow_extra_fields]
end

Replacement in lib/models/message.ml at line 14 [3.534463]

B:BD[3.534523] → [3.534523:534556]

  guild_id : Snowflake.t option;

[3.534523]

[3.534556]

  guild_id : Snowflake.t option; [@yojson.option]
  author : User.t;
  member : Guild_member.t option; [@yojson.option]

Replacement in lib/models/message.ml at line 18 [3.534463]

B:BD[3.534576] → [3.534576:534605]

  type_ : int; [@key "type"]

[3.534576]

[3.534605]

  timestamp : string;
  edited_timestamp : string option;
  tts : bool;
  mention_everyone : bool;
  mentions : User.t list;
  mention_roles : Snowflake.t list;
  mention_channels : Channel_mention.t list option; [@yojson.option]
  (* attachments: Attachment.t list; *)
  (* embeds: Embed.t list; *)
  (* reactions: Reaction.t list option; [@yojson.option] *)
  nonce : string option; [@yojson.option]
  pinned : bool;
  webhook_id : Snowflake.t option; [@yojson.option]
  typ : int; [@key "type"]
  (* activity : Activity.t option; [@yojson.option] *)
  (* application : Application.t option; [@yojson.option] *)
  (* message_reference : Reference.t option; [@yojson.option] *)
  flags : int option; [@yojson.option]
  (* stickers : Sticker.t list option; [@yojson.option] *)
  referenced_message : t option option; [@yojson.option]
      (* interaction : Interaction.t option; [@yojson.option] *)
}
[@@deriving yojson, show] [@@yojson.allow_extra_fields]
type partial = {
  id : Snowflake.t;
  channel_id : Snowflake.t;
  content : string option; [@yojson.option]
  timestamp : string option; [@yojson.option]
  edited_timestamp : string;

Replacement in lib/models/message.ml at line 49 [3.534463]
B:BD[3.534607] → [3.534607:534657]
```
[@@deriving yojson] [@@yojson.allow_extra_fields]
```
[3.534607]
[3.534657]
```
[@@deriving of_yojson, show] [@@yojson.allow_extra_fields]
```

File addition: presence_status.ml (----------)

[3.534184]

type t = [ `online | `dnd | `idle | `invisible | `offline ] [@@deriving show]
type unsupported = [ t | `unsupported of string ] [@@deriving show]
let yojson_of_t = function
  | `online -> `String "online"
  | `dnd -> `String "dnd"
  | `idle -> `String "idle"
  | `invisible -> `String "invisible"
  | `offline -> `String "offline"
let unsupported_of_yojson : Yojson.Safe.t -> unsupported = function
  | `String "online" -> `online
  | `String "dnd" -> `dnd
  | `String "idle" -> `idle
  | `String "invisible" -> `invisible
  | `String "offline" -> `offline
  | `String other -> `unsupported other
  | _ -> invalid_arg "presence status not a string"

File addition: role.ml (----------)

[3.534184]

type t = {
  id : Snowflake.t;
  name : string;
  color : int;
  hoist : bool;
  position : int;
  permissions : string;
  managed : bool;
  mentionable : bool;
  tags : tags option; [@yojson.option]
}
and tags = {
  bot_id : Snowflake.t option; [@yojson.option]
  interation_id : Snowflake.t option; [@yojson.option]
  premium_subscriber : unit option; [@yojson.option]
}
[@@deriving yojson, show] [@@yojson.allow_extra_fields]

Replacement in lib/models/snowflake.ml at line 28 [3.536689]
B:BD[4.120855] → [4.120855:120883]
```
let compare = Int64.compare
```
[4.120855]
[4.120883]
```
let compare l r = Int64.compare (timestamp l) (timestamp r)
```

Replacement in lib/models/user.ml at line 16 [3.536903]

B:BD[4.121407] → [4.121407:121457]

[@@deriving yojson] [@@yojson.allow_extra_fields]

[4.121407]

[@@deriving yojson, show] [@@yojson.allow_extra_fields]
type partial = {
  id : Snowflake.t;
  username : string option; [@yojson.option]
  discriminator : string option; [@yojson.option]
  avatar : string option; [@yojson.option]
  bot : bool option; [@yojson.option]
  system : bool option; [@yojson.option]
  mfa_enabled : bool option; [@yojson.option]
  locale : string option; [@yojson.option]
  verified : bool option; [@yojson.option]
  email : string option option; [@yojson.option]
  flags : int option; [@yojson.option]
  premium_type : int option; [@yojson.option]
  public_flags : int option; [@yojson.option]
}
[@@deriving yojson, show] [@@yojson.allow_extra_fields]

Replacement in lib/rtp.ml at line 16 [4.121604]
B:BD[4.121926] → [4.121926:121985]
```
let ts_incr = Uint32.of_int @@ (48000 / 1000 * _FRAME_LEN)
```
[4.121926]
[4.121985]
```
let ts_incr = Uint32.of_int @@ _FRAME_SIZE
```
Replacement in lib/session.ml at line 7 [3.538439]
B:BD[3.538536] → [3.538536:538586]
```
module Ws_Conn = Websocket.Make (Gateway_payload)
```
[3.538536]
[3.538586]
```
module Ws_conn = Websocket.Make (Gateway_payload)
```

Replacement in lib/session.ml at line 13 [3.538439]

B:BD[4.123107] → [4.123107:123162]

  and t' = Open of Token_bucket.t * Ws_Conn.t | Closed

[4.123107]

[4.123162]

  and t' = Open of Token_bucket.t * Ws_conn.t | Closed

Replacement in lib/session.ml at line 22 [3.538439]
B:BD[4.123356] → [4.123356:123388]
```
          Ws_Conn.send conn pl;
```
[4.123356]
[4.123388]
```
          Ws_conn.send conn pl;
```
Replacement in lib/session.ml at line 37 [3.538439]
B:BD[4.123740] → [4.123740:123773]
```
        Ws_Conn.close ~code conn
```
[4.123740]
[4.123773]
```
        Ws_conn.close ~code conn
```

Replacement in lib/session.ml at line 156 [3.538439]

B:BD[4.125826] → [4.125826:125879]

    | (Greet _ as st), (Heartbeat | HeartbeatACK) ->

[4.125826]

[4.125879]

    | (Greet _ as st), (Heartbeat | Heartbeat_ack) ->

Replacement in lib/session.ml at line 175 [3.538439]

B:BD[4.126628] → [4.126628:126692]

    | ((Id hb | Resuming (_, _, hb)) as st), Pl.HeartbeatACK ->

[4.126628]

[4.126692]

    | ((Id hb | Resuming (_, _, hb)) as st), Pl.Heartbeat_ack ->

Replacement in lib/session.ml at line 185 [3.538439]
B:BD[4.127068] → [4.127068:127100]
```
    | Id _, InvalidSession _ ->
```
[4.127068]
[4.127100]
```
    | Id _, Invalid_session _ ->
```
Replacement in lib/session.ml at line 201 [3.538439]
B:BD[4.127867] → [4.127867:127914]
```
    | Resuming (_, _, hb), InvalidSession _ ->
```
[4.127867]
[4.127914]
```
    | Resuming (_, _, hb), Invalid_session _ ->
```
Replacement in lib/session.ml at line 228 [3.538439]
B:BD[4.128733] → [4.128733:128781]
```
  let+ conn = Ws_Conn.create ~zlib:false uri in
```
[4.128733]
[4.128781]
```
  let+ conn = Ws_conn.create ~zlib:false uri in
```
Replacement in lib/session.ml at line 230 [3.538439]
B:BD[4.128791] → [4.128791:128836]
```
    Lwt_pipe.of_stream (Ws_Conn.stream conn)
```
[4.128791]
[4.128836]
```
    Lwt_pipe.of_stream (Ws_conn.stream conn)
```
Replacement in lib/session.ml at line 232 [3.538439]
B:BD[4.128876] → [4.128876:128916]
```
         | Ws_Conn.Payload pl -> `Pl pl
```
[4.128876]
[4.128916]
```
         | Ws_conn.Payload pl -> `Pl pl
```
Replacement in lib/session.ml at line 332 [3.538439]
B:BD[4.132273] → [4.132273:132297]
```
      | HeartbeatACK ->
```
[4.132273]
[4.132297]
```
      | Heartbeat_ack ->
```
Replacement in lib/session.ml at line 336 [3.538439]
B:BD[4.132389] → [4.132389:132425]
```
      | InvalidSession resumable ->
```
[4.132389]
[4.132425]
```
      | Invalid_session resumable ->
```

Replacement in lib/utils/dune at line 6 [2.23089]

B:BD[2.23205] → [2.23205:23270]

 (libraries containers containers-data ke stdint lwt relog.lib))

[2.23205]

 (libraries
  containers
  containers-data
  ke
  stdint
  lwt
  lwt.unix
  mtime
  mtime.clock.os
  relog.lib))

File move: token_bucket.ml → token_bucket.ml
BF:BFD[3.521424] → [3.552383:552422]
BF:BF[3.552422] → [3.549709:549709]
[2.23070]
[3.549709]
Replacement in lib/voice.ml at line 7 [3.552829]
B:BD[4.143710] → [4.143710:143758]
```
module Ws_Conn = Websocket.Make (Voice_payload)
```
[4.143710]
[4.143758]
```
module Ws_conn = Websocket.Make (Voice_payload)
```

Replacement in lib/voice.ml at line 13 [3.552829]

B:BD[4.143823] → [4.143823:143878]

  and t' = Open of Token_bucket.t * Ws_Conn.t | Closed

[4.143823]

[4.143878]

  and t' = Open of Token_bucket.t * Ws_conn.t | Closed

Replacement in lib/voice.ml at line 22 [3.552829]
B:BD[4.144072] → [4.144072:144104]
```
          Ws_Conn.send conn pl;
```
[4.144072]
[4.144104]
```
          Ws_conn.send conn pl;
```
Replacement in lib/voice.ml at line 37 [3.552829]
B:BD[4.144456] → [4.144456:144489]
```
        Ws_Conn.close ~code conn
```
[4.144456]
[4.144489]
```
        Ws_conn.close ~code conn
```
Replacement in lib/voice.ml at line 239 [3.552829]
B:BD[4.151200] → [4.151200:151232]
```
        HeartbeatACK nonce ) ->
```
[4.151200]
[4.151232]
```
        Heartbeat_ack nonce ) ->
```

Replacement in lib/voice.ml at line 258 [3.552829]

B:BD[4.151999] → [4.151999:152057]

    | Establish_udp (hb, udp), SessionDescription desc ->

[4.151999]

[4.152057]

    | Establish_udp (hb, udp), Session_description desc ->

Replacement in lib/voice.ml at line 273 [3.552829]
B:BD[4.152658] → [4.152658:152706]
```
  let+ conn = Ws_Conn.create ~zlib:false uri in
```
[4.152658]
[4.152706]
```
  let+ conn = Ws_conn.create ~zlib:false uri in
```
Replacement in lib/voice.ml at line 275 [3.552829]
B:BD[4.152716] → [4.152716:152761]
```
    Lwt_pipe.of_stream (Ws_Conn.stream conn)
```
[4.152716]
[4.152761]
```
    Lwt_pipe.of_stream (Ws_conn.stream conn)
```
Replacement in lib/voice.ml at line 277 [3.552829]
B:BD[4.152801] → [4.152801:152841]
```
         | Ws_Conn.Payload pl -> `Pl pl
```
[4.152801]
[4.152841]
```
         | Ws_conn.Payload pl -> `Pl pl
```
Replacement in lib/voice.ml at line 393 [3.552829]
B:BD[4.157195] → [4.157195:157230]
```
      | SessionDescription desc ->
```
[4.157195]
[4.157230]
```
      | Session_description desc ->
```

Replacement in lib/voice.ml at line 396 [3.552829]

B:BD[4.157316] → [4.157316:157364]

                Pl.SessionDescription.pp desc);

[4.157316]

[4.157364]

                Pl.Session_description.pp desc);

Replacement in lib/voice.ml at line 401 [3.552829]
B:BD[4.157588] → [4.157588:157618]
```
      | HeartbeatACK nonce ->
```
[4.157588]
[4.157618]
```
      | Heartbeat_ack nonce ->
```

Replacement in lib/voice.ml at line 404 [3.552829]

B:BD[4.157661] → [4.157661:157712]

      | Speaking _ | Resumed | ClientDisconnect ->

[4.157661]

[4.157712]

      | Speaking _ | Resumed | Client_disconnect ->

Replacement in lib/voice_payload.ml at line 36 [3.552865]
B:BD[4.159201] → [4.159201:159232]
```
module SelectProtocol = struct
```
[4.159201]
[4.159232]
```
module Select_protocol = struct
```
Replacement in lib/voice_payload.ml at line 46 [3.552865]
B:BD[4.159495] → [4.159495:159530]
```
module SessionDescription = struct
```
[4.159495]
[4.159530]
```
module Session_description = struct
```
Replacement in lib/voice_payload.ml at line 75 [3.552865]
B:BD[4.160215] → [4.160215:160267]
```
  | SelectProtocol : SelectProtocol.t -> Dir.send t
```
[4.160215]
[4.160267]
```
  | Select_protocol : Select_protocol.t -> Dir.send t
```

Replacement in lib/voice_payload.ml at line 78 [3.552865]

B:BD[4.160335] → [4.160335:160395]

  | SessionDescription : SessionDescription.t -> Dir.recv t

[4.160335]

[4.160395]

  | Session_description : Session_description.t -> Dir.recv t

Replacement in lib/voice_payload.ml at line 80 [3.552865]
B:BD[4.160437] → [4.160437:160474]
```
  | HeartbeatACK : int -> Dir.recv t
```
[4.160437]
[4.160474]
```
  | Heartbeat_ack : int -> Dir.recv t
```
Replacement in lib/voice_payload.ml at line 84 [3.552865]
B:BD[3.553389] → [3.553389:553423]
```
  | ClientDisconnect : Dir.recv t
```
[3.553389]
[3.553423]
```
  | Client_disconnect : Dir.recv t
```
Replacement in lib/voice_payload.ml at line 93 [3.552865]
B:BD[4.160563] → [4.160563:160591]
```
    | SelectProtocol _ -> 1
```
[4.160563]
[4.160591]
```
    | Select_protocol _ -> 1
```
Replacement in lib/voice_payload.ml at line 96 [3.552865]
B:BD[4.160633] → [4.160633:160665]
```
    | SessionDescription _ -> 4
```
[4.160633]
[4.160665]
```
    | Session_description _ -> 4
```
Replacement in lib/voice_payload.ml at line 98 [3.552865]
B:BD[4.160687] → [4.160687:160713]
```
    | HeartbeatACK _ -> 6
```
[4.160687]
[4.160713]
```
    | Heartbeat_ack _ -> 6
```
Replacement in lib/voice_payload.ml at line 102 [3.552865]
B:BD[3.553753] → [3.553753:553782]
```
    | ClientDisconnect -> 13
```
[3.553753]
[3.553782]
```
    | Client_disconnect -> 13
```

Replacement in lib/voice_payload.ml at line 107 [3.552865]

B:BD[4.160800] → [4.160800:160873]

    | 4, Some d -> SessionDescription (SessionDescription.t_of_yojson d)

[4.160800]

[4.160873]

    | 4, Some d -> Session_description (Session_description.t_of_yojson d)

Replacement in lib/voice_payload.ml at line 109 [3.552865]

B:BD[4.160926] → [4.160926:160980]

    | 6, Some d -> HeartbeatACK ([%of_yojson: int] d)

[4.160926]

[4.160980]

    | 6, Some d -> Heartbeat_ack ([%of_yojson: int] d)

Replacement in lib/voice_payload.ml at line 112 [3.552865]
∅:D[4.161049] → [3.554018:554056]
B:BD[3.554018] → [3.554018:554056]
```
    | 13, Some _d -> ClientDisconnect
```
[4.161049]
[4.161050]
```
    | 13, Some _d -> Client_disconnect
```

Replacement in lib/voice_payload.ml at line 123 [3.552865]

B:BD[4.161140] → [4.161140:161214]

    | SelectProtocol sp -> Raw.make ~d:(SelectProtocol.yojson_of_t sp) ()

[4.161140]

[4.161214]

    | Select_protocol sp -> Raw.make ~d:(Select_protocol.yojson_of_t sp) ()

Replacement in lib/voice_payload.ml at line 135 [3.552865]

B:BD[4.161598] → [4.161598:161658]

  SelectProtocol (SelectProtocol.make ~address ~port ~mode)

[4.161598]

[4.161658]

  Select_protocol (Select_protocol.make ~address ~port ~mode)

Replacement in lib/websocket.ml at line 7 [3.554490]

B:BD[3.554587] → [3.554587:554726]

module WS_Client = Websocketaf_lwt.Client (Gluten_lwt_unix.Client)
module WSS_Client = Websocketaf_lwt.Client (Gluten_lwt_unix.Client.SSL)

[3.554587]

[4.161854]

module Ws_client = Websocketaf_lwt.Client (Gluten_lwt_unix.Client)
module Wss_client = Websocketaf_lwt.Client (Gluten_lwt_unix.Client.SSL)

Replacement in lib/websocket.ml at line 313 [3.554490]

B:BD[3.564701] → [3.564701:564802]

        if ssl then WSS_Client.connect socket
        else WS_Client.connect (Lwt_ssl.get_fd socket)

[3.564701]

[3.564802]

        if ssl then Wss_client.connect socket
        else Ws_client.connect (Lwt_ssl.get_fd socket)

Replacement in tests/token_bucket.ml at line 2 [3.568209]
B:BD[3.568226] → [3.568226:568258]
```
module M = Discord.Token_bucket
```
[3.568226]
[3.568258]
```
module M = Dp_utils.Token_bucket
```

Cleanup + Model types & (de)serialzers

Dependencies

In channels

Change contents

Replacement in bin/bot/discopotty.ml at line 23 [3.153]

Replacement in docs/notebook.org at line 76 [3.3684]

Insertion in docs/notebook.org at line 105 [3.3684]

Insertion in docs/notebook.org at line 108 [3.3684]

Insertion in docs/notebook.org at line 164 [3.3684]

Deletion in lib/audio_stream.ml at line 6 [4.97161]

Deletion in lib/audio_stream.ml at line 7 [4.97161]

Replacement in lib/audio_stream.ml at line 149 [4.97161]

Replacement in lib/audio_stream.ml at line 153 [4.97161]

Replacement in lib/events.ml at line 7 [3.523298]

Insertion in lib/events.ml at line 10 [3.523298]

Replacement in lib/events.ml at line 12 [3.523298]

Replacement in lib/events.ml at line 15 [3.523298]

Replacement in lib/events.ml at line 20 [3.523298]

Replacement in lib/events.ml at line 30 [3.523298]

Replacement in lib/events.ml at line 33 [3.523298]

Replacement in lib/events.ml at line 35 [3.523298]

Insertion in lib/events.ml at line 185 [3.523298]

Deletion in lib/events.ml at line 187 [3.523298]

Replacement in lib/events.ml at line 188 [3.523298]

Insertion in lib/events.ml at line 239 [3.523298]

Insertion in lib/events.ml at line 243 [3.523298]

Deletion in lib/events.ml at line 245 [3.523298]

Replacement in lib/events.ml at line 246 [3.523298]

Replacement in lib/events.ml at line 304 [3.523298]

Replacement in lib/gateway.ml at line 83 [3.523979]

Replacement in lib/gateway.ml at line 89 [3.523979]

Replacement in lib/gateway.ml at line 97 [3.523979]

Replacement in lib/gateway.ml at line 100 [3.523979]

Replacement in lib/gateway.ml at line 103 [3.523979]

Replacement in lib/gateway.ml at line 110 [3.523979]

Insertion in lib/gateway_payload.ml at line 60 [3.525192]

Deletion in lib/gateway_payload.ml at line 67 [3.525192]

Insertion in lib/gateway_payload.ml at line 72 [3.525192]

Deletion in lib/gateway_payload.ml at line 74 [3.525192]

Replacement in lib/gateway_payload.ml at line 80 [3.525192]

Replacement in lib/gateway_payload.ml at line 118 [3.525192]

Deletion in lib/gateway_payload.ml at line 124 [3.525192]

Replacement in lib/gateway_payload.ml at line 126 [3.525192]

Replacement in lib/gateway_payload.ml at line 130 [3.525192]

Replacement in lib/gateway_payload.ml at line 132 [3.525192]

Replacement in lib/gateway_payload.ml at line 136 [3.525192]

Replacement in lib/gateway_payload.ml at line 143 [3.525192]

Replacement in lib/gateway_payload.ml at line 149 [3.525192]

Replacement in lib/gateway_payload.ml at line 158 [3.525192]

Replacement in lib/gateway_payload.ml at line 190 [3.525192]

Replacement in lib/gateway_payload.ml at line 194 [3.525192]

Replacement in lib/gateway_payload.ml at line 197 [3.525192]

Replacement in lib/gateway_payload.ml at line 208 [3.525192]

Replacement in lib/gateway_payload.ml at line 212 [3.525192]

Replacement in lib/gateway_payload.ml at line 215 [3.525192]

Replacement in lib/gateway_payload.ml at line 229 [3.525192]

Replacement in lib/gateway_payload.ml at line 233 [3.525192]

Replacement in lib/gateway_payload.ml at line 235 [3.525192]

Replacement in lib/gateway_payload.ml at line 242 [3.525192]

Replacement in lib/gateway_payload.ml at line 254 [3.525192]

Replacement in lib/gateway_payload.ml at line 257 [3.525192]

Replacement in lib/gateway_payload.ml at line 270 [3.525192]

Replacement in lib/gateway_payload.ml at line 273 [3.525192]

Replacement in lib/gateway_payload.ml at line 279 [3.525192]

File addition: activity.ml (----------)

File addition: application.ml (----------)

File addition: channel.ml (----------)

File addition: emoji.ml (----------)

Replacement in lib/models/guild.ml at line 1 [3.534420]

File addition: guild_member.ml (----------)

Insertion in lib/models/message.ml at line 1 [3.534463]

Replacement in lib/models/message.ml at line 14 [3.534463]

Replacement in lib/models/message.ml at line 18 [3.534463]

Replacement in lib/models/message.ml at line 49 [3.534463]

File addition: presence_status.ml (----------)

File addition: role.ml (----------)

Replacement in lib/models/snowflake.ml at line 28 [3.536689]

Replacement in lib/models/user.ml at line 16 [3.536903]

Replacement in lib/rtp.ml at line 16 [4.121604]

Replacement in lib/session.ml at line 7 [3.538439]