使用cereal通过句柄发送数据

Question

谁能给我展示一个使用谷类食品(Data.Serialize)通过Network包中从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

经过一些测试后，我似乎不能多次发送接收...