Я пытаюсь использовать динамический HTML-идентификатор для использования модальных окон.
В основном мои проблемы были бы решены, если бы Гамлет принял что-то вроде [hamlet| <div .modal .fade ##{modalIdFunction i}> |]
.
Поскольку у меня не было возможности сделать это в Hamlet, я пытаюсь сделать это с помощью Lucid, но это несовместимо с defaultLayout Yesod.
вот мое намерение:
getSupportR :: CustomerId -> Handler LucidHtml
getSupportR customerId = do
defaultLayout $ do
setTitle "Your Licenses"
toWidget . lucid $ \url ->
p_ $ a_ [href_ "\\"] "Link to root"
это сообщение об ошибке:
• Couldn't match type ‘blaze-markup-0.8.2.1:Text.Blaze.Internal.MarkupM
()’
with ‘HtmlT Identity ()’
Expected type: HandlerFor App LucidHtml
Actual type: HandlerFor App Html
Есть ли способ преобразовать LucidHtml Lucid в Html Blaze?
весь мой код находится по адресу: https://github.com/hhefesto/laurus-nobilis и соответствующие файлы: /src/Yesod/Lucid.hs и /src/Handler/Support.hs
Поскольку lucid Html
и blaze Html
являются совершенно разными типами, ваш единственный способ - отобразить один как текст и вставить его как предварительно экранированный HTML в другой. Что-то вроде Blaze.preEscapedToHtml . Lucid.renderText
.
Просто для полноты, это ответ стрелки, интегрированный в код:
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeFamilies #-}
module Handler.Support where
import Import hiding
import Yesod.Lucid
import Lucid hiding (Html)
import qualified Lucid as L
import Text.Blaze.Html
getSupportR :: CustomerId -> Handler Html
getSupportR customerId = do
lucidHtml <- lucid $ \url ->
p_ $ a_ [href_ "\\"] "link to root"
defaultLayout $ do
setTitle "Your Licenses"
toWidget . preEscapedToHtml . renderText $ lucidHtml