动态小部件视图

Question

我有一个带有以下签名elementWidget :: MonadWidget t m => ElementInfo -> m (Event t ElementInfo)的元素小部件，其中Event t ()反映是否单击了元素。

我在elementWidget的顶部创建了一个新的Widget，如下所示：

overviewWidget :: MonadWidget t m => [ElementInfo] -> m (Event t ElementInfo)
overviewWidget entries = divClass "entries" $ do
  ev <- sequence $ elementWidget <$> entries
  return $ leftmost ev

万一总览控件事件触发，我想显示另一个控件detailWidget :: ElementInfo -> m ()。我看到了函数dyn和widgetHold。

根据我的理解，我需要创建一个包含当前可见窗口小部件的动态文件，但是如果单击事件仍然包裹在m(Event t a)内而不呈现dom，如何捕获click事件。