haskell - 如何反射性地将输入值设置为当天？

Question

我正在使用 reflex-platform与 obelisk .
这是我获取当前日期的前端代码

pb <- getPostBuild
postBuildTime <- performEvent $ pb $> liftIO getCurrentTime
let today = Text.pack . formatTime defaultTimeLocale "%F" <$> postBuildTime

我可以通过放置来确认这是有效的

dynText =<< holdDyn "loading" today

它甚至不会在一瞬间显示“正在加载”，而是在浏览器(谷歌浏览器)中按预期显示“2021-03-26”。
然而，试图把 today事件变成 <input>不起作用。这是代码:

foo <- inputElement $ def & inputElementConfig_setValue .~ today

<input>保持空白。
更奇怪的是:在我的实际代码中 <input>通过 inputElementConfig_initialValue .~ "BAAAR" 有一个初始值，也没有显示。然而，一个动态文本创建如下

dynText =<< holdDyn "" foo

确实会显示“BAAAR”一瞬间。

为了平息任何偏执，我测试了 inputElementConfig_setValue用一个简单的按钮，效果很好。 IE。我可以设置 <input> 的值通过点击一个按钮。
所以 postBuildTime事件作品和 inputElementConfig_setValue有效，但两者的结合留下了 <input>空白的。
编辑
最小示例，包括有关如何运行和结果截图的说明:
https://github.com/rubenmoor/reflex-bug-pbtime

Answer 1

https://github.com/reflex-frp/reflex-dom/commit/93f0f4bd00e1dc871d193d7d53d5d7f2dbb518af
看起来这是一个错误，已在 reflex-dom 中修复.