从IO monad在CloudHaskell中发送消息

Question

我想发送消息（Cloud Haskell）而不是Process monad。

anyMethod :: Handler ()
anyMethod = do
    ...      
    liftIO $ return $ do _ <- send pid (QnrMes q a)
                         return ()

这里的pid是ProcessId。 一切都已编译，但消息不会进入过程。 有可能实现这个吗？

Answer 1

我解决了这个问题。也许它对任何人都有用。

anyMethod ::App -> Handler ()
anyMethod app = do
    ...      
    (appMesSender app) pid (QnrAnswers questionnaire questionnaireAnswers)

data App = App{appMesSender :: (ProcessId -> UnitMessage -> IO ())
               ...
              }

事实上，我事先准备好了这个功能。