package nats-client

  1. Overview
  2. Docs

Source file headers.ml

1
2
3
4
5
6
type t = (string * string) list

let empty = []
let of_list headers = List.rev headers
let to_list headers = List.rev headers
let add headers ~name ~value = (name, value) :: headers