path: root/lib/auth.ml

open Lwt.Syntax

type auth_mechanism = PLAIN  [@@deriving show]

let authenticate (stream, _push) =
  let+ features = Lwt_stream.get stream
  in Option.get features