haskell - 在 yesod 中使用 BootstrapHorizo​​ntalForm

Question

我打算使用 BootstrapHorizo​​ntalForm，使用本指南的示例，我的代码：

表格

churchForm :: Maybe Church -> AForm Handler (Church,Maybe FileInfo)
churchForm mc = (,) <$>
(Church
 <$> areq textField (bfs MsgName) (churchName <$> mc)
 <*  bootstrapSubmit (BootstrapSubmit MsgCreateAction "btn-default" [("attribute-name","attribute-value")])

GET 方法

getChurchNewR :: Handler Html
getChurchNewR = do
(widget, enctype) <- generateFormPost $
                   renderBootstrap3 (BootstrapHorizontalForm (ColSm 0) (ColSm 4) (ColSm 0) (ColSm 6))
                   (churchForm Nothing)
  defaultLayout $ do
    msgAction = MsgCreateAction
    actionR = ChurchNewR
    mPath = Nothing
$(widgetFile "church/church")

但有这个错误：

处理程序/Church.hs:63:67：不在范围内：数据构造函数“ColSm”</p>

谢谢你的帮助

Answer 1

这看起来像是缺少导入。检查您是否CpmSm在文件顶部实际导入。

此导入可以是以下形式：

import Yesod.Form.Bootstrap3 (BootstrapGridOptions (ColSm))

或者

import Yesod.Form.Bootstrap3 (BootstrapGridOptions (..))

甚至

import Yesod.Form.Bootstrap3

如果这听起来不熟悉，您可以查看Learn Yourself a Haskell中的模块章节，以了解有关导入的更多信息。