Я хотел бы добавить Lucid в defaultLayout Yesod - PullRequest
Новая
       15

Я хотел бы добавить Lucid в defaultLayout Yesod

0 голосов
/ 30 октября 2018

Я пытаюсь использовать динамический HTML-идентификатор для использования модалов.

В основном мои проблемы были бы решены, если бы Гамлет принял что-то вроде [hamlet| <div .modal .fade ##{modalIdFunction i}> |]

Поскольку я не смог сделать это в Гамлете, я пытаюсь сделать это с 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 в Blaze's Html?

Весь мой код: https://github.com/hhefesto/laurus-nobilis и соответствующие файлы: /src/Yesod/Lucid.hs и /src/Handler/Support.hs

Ответы [ 2 ]

0 голосов
/ 01 ноября 2018

Просто для полноты ответ Arrowd интегрирован в код: 

{-# 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
0 голосов
/ 30 октября 2018

Поскольку lucid Html и blaze Html являются совершенно разными типами, ваш единственный способ - отобразить один в виде текста и вставить его как предварительно экранированный HTML-код в другой. Что-то вроде Blaze.preEscapedToHtml . Lucid.renderText.

...