From ee2603383af7c661098032f4a23f5daa2f7248aa Mon Sep 17 00:00:00 2001
From: Marcin Szamotulski <coot@coot.me>
Date: Fri, 10 Jan 2025 20:13:51 +0100
Subject: [PATCH] WIP: added TODO

---
 .../testlib/Test/Ouroboros/Network/Server.hs                    | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/ouroboros-network-framework/testlib/Test/Ouroboros/Network/Server.hs b/ouroboros-network-framework/testlib/Test/Ouroboros/Network/Server.hs
index 1af57b64639..11e34e9ce62 100644
--- a/ouroboros-network-framework/testlib/Test/Ouroboros/Network/Server.hs
+++ b/ouroboros-network-framework/testlib/Test/Ouroboros/Network/Server.hs
@@ -32,6 +32,8 @@ import Ouroboros.Network.Snocket as Snocket
 import Ouroboros.Network.Socket
 
 
+-- TODO: should be moved to `ouroboros-network-framework`
+-- It is needed in `ekg-forward` and probably wallet too.
 with :: forall fd addr vNumber vData m a b.
         ( Alternative (STM m),
           MonadAsync m,