git.iko.soy/distributed-process
on master help sign in
Additional warning in the comments
28ebac4Tim Watson
src/Control/Distributed/Process/Internal/Types.hs+1−1
compare with master
unifiedsplit
@@ -385,7 +385,7 @@ createUnencodedMessage a =
385 let encoded = encode a in BSL.length encoded `seq` UnencodedMessage (fingerprint a) a
385 let encoded = encode a in BSL.length encoded `seq` UnencodedMessage (fingerprint a) a
386
386
387-- | Turn any serializable term into an unencodede/local message, without
387-- | Turn any serializable term into an unencodede/local message, without
388−-- evalutaing it!
388+-- evalutaing it! This is a dangerous business.
389unsafeCreateUnencodedMessage :: Serializable a => a -> Message
389unsafeCreateUnencodedMessage :: Serializable a => a -> Message
390unsafeCreateUnencodedMessage a = UnencodedMessage (fingerprint a) a
390unsafeCreateUnencodedMessage a = UnencodedMessage (fingerprint a) a
391
391