From 883ff0413fd6b3ebdfcd26af119144864a97fd0b Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Fri, 7 Feb 2020 11:25:11 +0100
Subject: [PATCH] tcp: ignore result of xmit, continues #310, see #392

---
 src/tcp/segment.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/tcp/segment.ml b/src/tcp/segment.ml
index 8e1a6ecad..0394c5fa2 100644
--- a/src/tcp/segment.ml
+++ b/src/tcp/segment.ml
@@ -307,7 +307,10 @@ module Tx (Time:Mirage_time.S) (Clock:Mirage_clock.MCLOCK) = struct
                   fmt "TCP retransmission triggered by timer! seq = %d"
                     (Sequence.to_int rexmit_seg.seq));
               Lwt.async
-                (fun () -> xmit ~flags ~wnd ~options ~seq rexmit_seg.data);
+                (fun () ->
+                   xmit ~flags ~wnd ~options ~seq rexmit_seg.data
+                   (* TODO should this return value really be ignored? *)
+                   >|= fun (_: ('a,'b) result) -> () );
               Window.alert_fast_rexmit wnd rexmit_seg.seq;
               Window.backoff_rto wnd;
               Log.debug (fun fmt -> fmt "Backed off! %a" Window.pp wnd);