haskell - 使用 Cereal 通过句柄发送数据

Question

有人可以向我展示一个使用 Cereal (Data.Serialize) 通过从 connectTo 或 accept 接收的句柄发送数据的示例吗网络包？

Answer 1

好吧，当使用一些包时，这真的很容易:

import Data.Conduit
import Data.Conduit.Binary
import Data.Conduit.Cereal
import Data.Serialize

-- where h is a `Handle` to a socket or whatever

-- Write data
a = 123 :: Integer
runResourceT $ sourcePut (put a) $$ sinkHandle h

-- Read data
a <- runResourceT $ sourceHandle h $$ sinkGet get

经过一些测试，似乎我无法多次发送接收...