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,