git.iko.soy/distributed-process
on master help sign in
tidy up the 'decode' explanation for catchExit
9b4febcTim Watson
distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs+1−2
@@ -393,8 +393,7 @@ catchExit act exitHandler = catch act handleExit
393 where
393 where
394 decoded :: a
394 decoded :: a
395 -- Make sure the value is fully decoded so that we don't hang to
395 -- Make sure the value is fully decoded so that we don't hang to
396− -- bytestrings when the process calling 'matchIf' doesn't process
397− -- the values immediately
396+ -- bytestrings if the caller doesn't use the value immediately
398 !decoded = decode (messageEncoding msg)
397 !decoded = decode (messageEncoding msg)
399
398
400-- | Our own process ID
399-- | Our own process ID