haskell - 使登录页面更漂亮或将一个小部件注入另一个小部件

Question

  loginHandler = do
  tp <- getRouteToParent
  lift $ defaultLayout $ do
    --setTitleI Msg.LoginTitle
    master <- getYesod
    --mapM_ ( flip apLogin tp ) ( authPlugins master )
    [whamlet|<h3>Authentication providers|]
    let ws = mapM ( flip apLogin tp ) ( authPlugins master )
    [whamlet|
      <ul>
        $forall w <- ws
          <li>^{w}
    |]

在上面的代码中（它不编译）我试图在一个 html 列表（ul、li 等）中列出所有可用的身份验证提供程序......

通常小部件很容易并排组合：w1 >> w2 >> w3 ...有没有办法将一个小部件注入（！）另一个小部件？

Answer 1

通常最好在这样的问题中包含错误消息。我相信答案是替换mapM为map，但鉴于我不知道为什么当前代码不起作用，这很难说。