0
在我的卤素的项目有这样的eval分支:在eval期间可以渲染一个组件吗?
eval (SetTest tName next) = do
H.set (State Nothing)
detail <- H.fromAff $ toAff settings $ getTestsByTestname (tName ^. unTestName)
H.set (State (Just detail))
pure next
的toAff位,如果关闭做AJAX,可能需要一段时间才能恢复。在我的渲染功能我有
, case ts of
Nothing ->
HH.div [class_ BS.centerBlock]
[HH.i [classes (HH.className <$> ["fa", "fa-spinner", "fa-spin", "loading"])]
[]
]
Just td ->
HH.h3_ [HH.text $ td ^. tdName<<<unTestName]
我天真地期待看到正在加载的旋转时,直到我的AFF行动的回报,但它看起来像EVAL始终贯穿一路的HTML渲染之前。它是否正确?
编辑
事实证明,这是用户的错误 - 我打电话我在错误的顺序查询。未来mes:设置状态的确会更新ui :-)