Commits

Anonymous committed 48086be

websocket client debug

  • Participants
  • Parent commits 3a2e6fb

Comments (0)

Files changed (1)

File src/websocket.ml

            let open S in
            let outsock = of_fd sock ~is_serverside:False in
            let mrc = message_reading_context (sl_l, enp_poly) outsock in
+           let () = if ad then amdbg "wc: connected" else () in
            Lwt.return mrc
        ]
     )