Haskell 使用Licius+；哈姆雷特+；朱利叶斯的仆人

我想使用《野人》中的莎士比亚模板（李修斯+哈姆雷特+朱利叶斯）。但我在这方面有一些困难。以下代码来自works：

---

我怎样才能为仆人一起建造李修斯+哈姆雷特+朱利叶斯（没有整个耶索德）？

我能够解决这个问题。 下面的代码有效

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

data Page\u LoginHTML=Page\u LoginHTML
实例H.ToMarkup Page_LoginHTML，其中
toMarkup Page_LoginHTML=builderHtml
loginHtml=返回页面\u loginHtml
csssstyle:：Html
csssstyle=toHtml$rendercsurl未定义
[卡修斯|
.q-测试-2
颜色：绿色
|]
htmlBody:：Html
htmlBody=
[香叶|
哈姆雷特登录渲染
|]
builderHtml=H.docTypeHtml$do
H.head$do
H.标题“登录”
H.风格cssStyle
H.阀体htmlBody

---

可能对某些人有用。

你能添加你得到的编译器错误吗？错误：无法将预期的类型“t0->Css”与实际类型“blaze-markup-0.7.0.3:Text.blaze.Internal.MarkupM a0”lambda表达式“\\u render\u alwD->（shakespeare-2.0.8:Text.Css.CssNoWhitespace.（foldr（$）…）…“人们什么时候会知道省略类型签名不是一个好主意？好吧，不需要类型签名是Haskell的卖点。所以难怪人们会使用这个“功能”@mb14也许卖家应该添加“只要你把手从大部分分机上拿开”，在他的小字里；）

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")

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