在Servant中使用Licius + Hamlet + Julius
在Servant中使用Licius + Hamlet + Julius
提问于 2016-04-13 19:12:23
我想使用莎士比亚的模板(利修斯+哈姆雷特+朱利叶斯)从Yesod.But，我有一些困难。enter link description here中的以下代码可以工作：
type TestAPI
= "tests" :> Get '[JSON] [Test]
:<|> "test" :> Get '[JSON] Test
:<|> "TestHTML.html" :> Get '[HTML] Page_TestHTML
serverTestAPI :: ServerT TestAPI AppM
serverTestAPI = tests
:<|> test
:<|> testHtml
data Page_TestHTML = Page_TestHTML
instance ToMarkup Page_TestHTML where
toMarkup Page_TestHTML = builderHtml
testHtml = return Page_TestHTML
builderHtml = [shamlet|
$doctype 5
<html>
<head>
<title>Greeting2
<body>
<h2> Hello world HTML Qqqqq |]但是下一段代码不起作用：
data Page_TestHTML_2 = Page_TestHTML_2
instance ToMarkup Page_TestHTML_2 where
toMarkup Page_TestHTML_2 = builderHtml_2
testHtml_2 = return Page_TestHTML_2
builderHtml_2 = do
$(luciusFile "templates/test/TestHTML2.lucius")
$(shamletFile "templates/test/TestHTML2.hamlet")我怎样才能为佣人构建Licius + Hamlet + Julius (没有完整的Yesod)？
回答 1
Stack Overflow用户
发布于 2016-04-15 14:38:37
我能够解决这个问题。下面的代码行得通！
data Page_LoginHTML = Page_LoginHTML
instance H.ToMarkup Page_LoginHTML where
toMarkup Page_LoginHTML = builderHtml
loginHtml = return Page_LoginHTML
cssStyle :: Html
cssStyle = toHtml $ renderCssUrl undefined
[cassius|
.q-test-2
color: green
|]
htmlBody :: Html
htmlBody =
[shamlet|
<h1> Hamlet Login Render
|]
builderHtml = H.docTypeHtml $ do
H.head $ do
H.title "Login"
H.style cssStyle
H.body htmlBody也许它会对某些人有用。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/36596601
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号