Haskell вызывает HTML с использованием Шекспира без виджетов Yesod

Как Йесод, так что ныряешь глубоко. Есть вопрос: с помощью Yesod я могу звонить, например. тип данныхApp с участием Warp (warp 3000 App). Как я могу обслуживать HTML, созданный с использованием шаблонов Шекспира (как показано ниже). Взял из книги Майкла Сноймана.

{-# LANGUAGE OverloadedStrings         #-}
{-# LANGUAGE TypeFamilies              #-}
{-# LANGUAGE QuasiQuotes               #-}
{-# LANGUAGE TemplateHaskell           #-}
module Main where

import Text.Blaze.Html.Renderer.String (renderHtml) 
import Text.Hamlet (HtmlUrl, hamlet) 
import Data.Text (Text) 
import Yesod

data WebRoutes = Home | Time | Stylesheet

render :: WebRoutes -> [(Text, Text)] -> Text 
render Home _       = "/home"
render Time _       = "/time" 
render Stylesheet _ = "/stylesheet" 

template :: Text -> HtmlUrl WebRoutes 
template title = [hamlet|
<html>
  <head> 
    <title>#{varTitle} 
    <link rel=stylesheet href=@{Stylesheet}>
  <body>
    <h1 #headerId>#{title}
|]
varTitle :: String 
varTitle = "Test outputd" 

main :: IO ()
main = putStrLn $ renderHtml $ template "Test output" render
Источник

0 ответов

Другие вопросы по тегам