haskell - 撰写表单验证

Question

我想在同一个输入字段上添加几个验证。例如，价格字段不应小于 0（检查），另一个将查询数据库（检查 M）

    <$> areq priceField "Price" Nothing
    where priceField = check validateMinimumPrice intField

    <$> areq priceField "Price" Nothing    
    where priceField = checkM validatePriceFromDb intField

所以我知道如何每次都添加一个验证，但是如何将这些验证函数组合在一起呢？

这是带有简化工作表的要点。

Answer 1

正如@user2407038 在此评论中回答的那样，我的答案是

<$> areq priceField "Price" Nothing
where priceField = (check validateMinimumPrice . checkM validateMinimumPriceInHandler) intField

我已经用工作解决方案更新了要点