git.iko.soy/distributed-process
on master help sign in
Silence some compiler warnings
320d667Tim Watson
src/Control/Distributed/Process/UnsafePrimitives.hs+4−4
compare with master
unifiedsplit
@@ -93,8 +93,8 @@ send them msg = do
93 msg
93 msg
94 where
94 where
95 unsafeSendLocal :: (Serializable a) => ProcessId -> a -> Process ()
95 unsafeSendLocal :: (Serializable a) => ProcessId -> a -> Process ()
96− unsafeSendLocal pid msg =
96+ unsafeSendLocal pid msg' =
97− sendCtrlMsg Nothing $ LocalSend pid (unsafeCreateUnencodedMessage msg)
97+ sendCtrlMsg Nothing $ LocalSend pid (unsafeCreateUnencodedMessage msg')
98
98
99-- | Send a message on a typed channel
99-- | Send a message on a typed channel
100sendChan :: Serializable a => SendPort a -> a -> Process ()
100sendChan :: Serializable a => SendPort a -> a -> Process ()
@@ -112,8 +112,8 @@ sendChan (SendPort cid) msg = do
112 msg
112 msg
113 where
113 where
114 unsafeSendChanLocal :: (Serializable a) => SendPortId -> a -> Process ()
114 unsafeSendChanLocal :: (Serializable a) => SendPortId -> a -> Process ()
115− unsafeSendChanLocal spId msg =
115+ unsafeSendChanLocal spId msg' =
116− sendCtrlMsg Nothing $ LocalPortSend spId (unsafeCreateUnencodedMessage msg)
116+ sendCtrlMsg Nothing $ LocalPortSend spId (unsafeCreateUnencodedMessage msg')
117
117
118-- | Create an unencoded @Message@ for any @Serializable@ type.
118-- | Create an unencoded @Message@ for any @Serializable@ type.
119wrapMessage :: Serializable a => a -> Message
119wrapMessage :: Serializable a => a -> Message