-- TODO: reabilitate those to use the new connData
serverChunkExchange c = do
  infoM logger "server ping pongs some chunks with the client.."
  (connSource c) =$ serverChunks (P.zip chunks [1..]) $$ (connSink c)
  return ()
serverChunkExchange c = do
  infoM logger "server ping pongs some chunks with the client.."
  (connSource c) =$ serverChunks (P.zip chunks [1..]) $$ (connSink c)
  return ()
serverChunkExchange c = do
  infoM logger "server ping pongs some chunks with the client.."
  (connSource c) =$ serverChunks (P.zip chunks [1..]) $$ (connSink c)
  return ()