diff options
Diffstat (limited to 'portal/tcp')
| -rw-r--r-- | portal/tcp/portal.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/portal/tcp/portal.ml b/portal/tcp/portal.ml index bfb2cb7..3477429 100644 --- a/portal/tcp/portal.ml +++ b/portal/tcp/portal.ml @@ -80,9 +80,7 @@ let tcp_stream (domain : string) : (string Lwt_stream.t * file_descr) Lwt.t = [domain] via plaintext TCP. This function is a comparatively simple wrapper around the original TCP stream, - simply converting to/from Markup.ml signals. - - TODO: right now it's possible to get parts of unfinished stanzas... *) + simply converting to/from Markup.ml signals. *) let connect (domain : string) : t Lwt.t = let+ tcp_stream, tcp_socket = tcp_stream domain in let send msg = |