server = (Just serverIn, Just serverOut, Nothing, serverProc)
serverFinalizer tid = finally (timeout (messageTimeout config * 1000000)
(runSession' exitServer))
server = (Just serverIn, Just serverOut, Nothing, serverProc)
serverFinalizer tid = finally (timeout (messageTimeout config * 1000000)
(runSession' exitServer))