Purescript Halogen:我可以请求也是父组件的子组件的状态吗？

-- 父组件中定义request消息和handleAction
data Action = RequestState (Reflexive Maybe String)

handleAction :: forall m. MonadAff m => Action -> Effect m Unit
handleAction (RequestState replyTo) = do
  let state = "some state" -- 这里是你想要发送的状态
  sendReply replyTo (Just state)

-- 子组件中发送request消息
requestParentState :: forall m. MonadAff m => Effect m (Maybe String)
requestParentState = do
  replyTo <- makeReflexive
  send ParentComponentAction (RequestState replyTo)
  readReflexive replyTo

-- 定义一个Context
type Context = { state :: String }

-- 父组件中设置Context
context :: Context
context = { state: "some state" }

-- 子组件中读取Context
readParentState :: forall m. MonadAff m => Effect m String
readParentState = do
  ctx <- getContext
  pure ctx.state

-- 父组件中创建一个Reflexive来表示状态
stateRef :: Ref Reflexive String
stateRef = makeReflexive "some state"

-- 子组件中读取Reflexive
readParentState :: forall m. MonadAff m => Effect m String
readParentState = do
  state <- readReflexive stateRef
  pure state