@@ -93,8 +93,8 @@ send them msg = do
9393 msg
9494 where
9595 unsafeSendLocal :: (Serializable a) => ProcessId -> a -> Process ()
96− unsafeSendLocal pid msg =
97− sendCtrlMsg Nothing $ LocalSend pid (unsafeCreateUnencodedMessage msg)
96+ unsafeSendLocal pid msg' =
97+ sendCtrlMsg Nothing $ LocalSend pid (unsafeCreateUnencodedMessage msg')
9898
9999-- | Send a message on a typed channel
100100sendChan :: Serializable a => SendPort a -> a -> Process ()
@@ -112,8 +112,8 @@ sendChan (SendPort cid) msg = do
112112 msg
113113 where
114114 unsafeSendChanLocal :: (Serializable a) => SendPortId -> a -> Process ()
115− unsafeSendChanLocal spId msg =
116− sendCtrlMsg Nothing $ LocalPortSend spId (unsafeCreateUnencodedMessage msg)
115+ unsafeSendChanLocal spId msg' =
116+ sendCtrlMsg Nothing $ LocalPortSend spId (unsafeCreateUnencodedMessage msg')
117117
118118-- | Create an unencoded @Message@ for any @Serializable@ type.
119119wrapMessage :: Serializable a => a -> Message