Commits

Anonymous committed dc412b3

websocket fix: removed debug Ws.send's

Comments (0)

Files changed (1)

src/amall_http_server.ml

       then
         IO.return ()
       else
-        H.Ws.send outsock `Text "1" >>% fun () ->
         let sl = Lazy.force sl_l in
         enum_part sl (it_loop data_state)
         >>% fun (loop_it, sl_l, enp_opt) ->
         let () = dbg "ws: io_loop: enum_part returned" in
-        H.Ws.send outsock `Text "12" >>% fun () ->
 
         (let proc_error e =
            let () = dbg "ws: io_loop: error: %s"
            let () = dbg "ws: io_loop: proc_error: 1: is_close_sent = %b"
              (H.Ws.is_close_sent outsock)
            in
-           H.Ws.send outsock `Text "123" >>% fun () ->
            (if H.Ws.is_close_sent outsock
             then
               IO.return ()