a60a8ca · distributed-process

104-- We can now define 'sendIntClosure':

105--

106-- > sendIntClosure :: ProcessId -> Closure (Int -> Process ())

107−-- > sendIntClosure pid = Closure decoder (encode pid)

107+-- > sendIntClosure pid = closure decoder (encode pid)

108-- > where

109-- > decoder :: Static (ByteString -> Int -> Process ())

110-- > decoder = sendIntStatic `staticCompose` decodeProcessIdStatic

169-- so that we can define

170--

171-- > sendClosure :: Static (BinaryDict a) -> Process a -> Closure (a -> Process ())

172−-- > sendClosure dict pid = Closure decoder (encode pid)

172+-- > sendClosure dict pid = closure decoder (encode pid)

173-- > where

174-- > decoder :: Static (ByteString -> a -> Process ())

175-- > decoder = (sendDictStatic `staticApply` dict) `staticCompose` decodeProcessIdStatic