Сделать страницу входа более привлекательной или Внедрение одного виджета в другой

  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 ... Есть ли способ внедрить (!) один виджет внутри другого?


person Kuznero    schedule 03.01.2014    source источник


Ответы (1)


Обычно лучше всего включать сообщения об ошибках с таким вопросом. Я полагаю, что ответ заключается в замене mapM на map, но трудно сказать, потому что я не знаю, почему текущий код не работает.

person Michael Snoyman    schedule 05.01.2014