haskell - IHP Haskell 字段显示格式双值

Question

我有一个带有 Double 字段的表，例如foo .当我捕获像 5000 万( 50000000 )这样的数字然后我想查看我的数据时，我得到:5.0e7 .当我再次编辑记录时，我也查看了5.0e7在文本字段上。
我可以使用实用函数来解决“显示”部分，例如:

-- Application/Helper/View.hs

module Application.Helper.View where

import Data.Text (unpack)
-- added format-numbers package as dependency on default.nix
import Data.Text.Format.Numbers
import IHP.ViewPrelude


-- Here you can add functions which are available in all your views

moneyConfiguration :: PrettyCfg
moneyConfiguration = PrettyCfg 2 (Just ',') '.'

showMoneyAmount :: Double -> String
showMoneyAmount d = unpack $ prettyF moneyConfiguration d

然后我在 Web/View/MyRecord/Show.hs 上使用它作为:

   ...
   <div class="col">{get #foo myRecord |> showMoneyAmount}</div>
   ...

但是在渲染用于创建/编辑的表单时，我无法摆脱 5.0e7值(value):

renderForm :: MyRecord -> Html
renderForm myRecord = formFor myRecord [hsx|
    ...
    {(textField #foo)}
    ...
    {submitButton}
|]

我希望有类似的东西: {showMoneyAmount <$> (textField #foo)}或者: {(textField #foo){formatValue = showMoneyAmount}}有任何想法吗？

Answer 1

对我来说听起来像是一个错误。我刚刚将修复推送到 https://github.com/digitallyinduced/ihp/commit/6545122bf9129cdb53459c116817776f68bcc300
因此，这应该在下一个 IHP 版本中修复