如何动态生成selectFields

Question

我正在尝试使用mreq selectField通过flip进行映射来动态生成selectFields，我想知道这是否是最佳方法。

这是我的尝试。在研究了翻转类型后，我开始认为这可能是错误的方法。欢迎反馈。

[(versionRes,versionView)] <- mapM (mreq (flip (selectField "Placeholder" Nothing)))
                                   versions

versions的类型为[[(Text,Text)]]。

我认为这些错误没有任何用处，如果这种方法可行，那就是让这些类型正确。我很难做到这一点，并且不确定这种方法是否有解决方案。

此处参考的是mreq，flip和selectField的类型定义。

嗯，这是我的下一次尝试。

[(versionRes,versionView)] <- mapM (flip mreq selectField ("Placeholder" Nothing)) versions

我正试图让mreq像这样工作

mreq "Placeholder" Nothing (selectField [(Text),(Text)])

Answer 1

我得出的结论是，即使有可能，翻转也不实用。

我正在做这样的事情。

versionInfo <- mapM generateVersionSelectFields [[(Text),(Text)]]

generateVersionSelectFields version = do mreq (selectField version) "Placeholder" Nothing

我把它留在这里，以便它可能得到改善或出现另一种方法。