@@ -104,7 +104,7 @@
104104-- We can now define 'sendIntClosure':
105105--
106106-- > sendIntClosure :: ProcessId -> Closure (Int -> Process ())
107−-- > sendIntClosure pid = Closure decoder (encode pid)
107+-- > sendIntClosure pid = closure decoder (encode pid)
108108-- > where
109109-- > decoder :: Static (ByteString -> Int -> Process ())
110110-- > decoder = sendIntStatic `staticCompose` decodeProcessIdStatic
@@ -169,7 +169,7 @@
169169-- so that we can define
170170--
171171-- > 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)
173173-- > where
174174-- > decoder :: Static (ByteString -> a -> Process ())
175175-- > decoder = (sendDictStatic `staticApply` dict) `staticCompose` decodeProcessIdStatic