1 files changed, 9 insertions, 0 deletions

diff --git a/server/src/Network/QueryResponse.hs b/server/src/Network/QueryResponse.hs
index 94eb4796..470b7ce7 100644
--- a/server/src/Network/QueryResponse.hs
+++ b/server/src/Network/QueryResponse.hs
@@ -81,6 +81,13 @@ data TransportA err addr x y = Transport
 
 type Transport err addr x = TransportA err addr x x
 
+nullTransport :: TransportA err addr x y
+nullTransport = Transport
+    { awaitMessage = \_ -> retry
+    , sendMessage  = \_ _ -> return ()
+    , setActive    = \_ -> return ()
+    }
+
 closeTransport :: TransportA err addr x y -> IO ()
 closeTransport tr = setActive tr False
 
@@ -606,6 +613,8 @@ saferSendTo sock bs saddr = void (B.sendTo sock bs saddr)
             else throw e
 
 -- | Like 'udpTransport' except also returns the raw socket (for broadcast use).
+--
+-- Note: Throws an exception if unable to bind.
 udpTransport' :: Show err => SockAddr -> IO (Transport err SockAddr ByteString, Socket)
 udpTransport' bind_address = do
   let family = sockAddrFamily bind_address