@@ -148,8 +148,8 @@ forkProcess node (Process action) = do
148148 receiverPump chan queue = do
149149 msgBlobs <- Trans.receive chan
150150 let (typerep, body) = read (concatMap BS.unpack msgBlobs)
151−-- print ("receiverPump", typerep, body)
152151 enqueue queue (Message typerep body)
152+ receiverPump chan queue
153153
154154send :: (Typeable a, Show a) => ProcessId -> a -> Process ()
155155send (ProcessId chan _ _) msg =