main = do
s <- bindPortTCP 3000 "*4"
_ <- accept s
return ()
An IllegalArgumentException will be thrown because the Channel doesn't support the specified operation, and in this case, accept.
bindPortTCP in streaming-commons library passes NS.Stream as socket type and, as a result, gets a NetworkChannel in return. But only ServerSocketChannel supports accept, so there the problem is.
The solution would be to just change the NS.Stream to NS.ServerSocket NS.Stream. Also, ServerSocketChannel doesn't support TCP_NODELAY, so the options need be changed.
In the following simple code:
An
IllegalArgumentExceptionwill be thrown because theChanneldoesn't support the specified operation, and in this case,accept.bindPortTCPinstreaming-commonslibrary passesNS.Streamas socket type and, as a result, gets aNetworkChannelin return. But onlyServerSocketChannelsupportsaccept, so there the problem is.The solution would be to just change the
NS.StreamtoNS.ServerSocket NS.Stream. Also,ServerSocketChanneldoesn't supportTCP_NODELAY, so the options need be changed.