如何将<datalist>与IHP结合使用？

Question

在IHP中，是否有一些内置的方法可以用一个简单的<datalist>来完成HTML字段？例如在https://stackoverflow.com/a/19779010/69663中

Answer 1

似乎没有修改IHP代码，但只需“手动”就可以了：

instance View NewView where
    html NewView { .. }  = [hsx|
        {renderForm thing}
        <datalist id="languages">
          {forEach languages renderOption}
        </datalist>
|]

renderForm :: Thing -> Html
renderForm thing = formFor thing [hsx|
    {(textField #language) { additionalAttributes = [("list", "languages")]}}
|]

renderOption :: Text -> Html
renderOption value = [hsx| <option value={value}/> |]