haskell - 在 yesod (haskell) 中，如何加载纯 html 格式的文件(不是 hamlet)作为小部件？

Question

如何将纯 html 格式的文件(不是 hamlet 格式的文件)加载为小部件？换句话说，我正在寻找相当于以下内容的 html:

toWidget $(whamletFile "test.hamlet")

Answer 1

为此，您可以在处理函数中使用 sendFile ( see its definition )

第一个参数是 Mime 类型，第二个参数是文件路径。

例如，您可以编写如下代码:

getMyFileR :: Handler ()
getMyFileR = sendFile "text/html" "myfile.html"

这是另一个例子。假设我有以下模型:

Resource
    filename    FilePath
    mimetype    ContentType

    deriving    Typeable

处理程序可能如下所示:

resourceDirectory :: FilePath
resourceDirectory = "resource"

getResourceGetR :: ResourceId -> Handler ()
getResourceGetR resourceId = do
    resource <- runDB $ get404 resourceId

    sendFile (resourceMimetype resource)
             (resourceDirectory </> unpack (resourceFilename resource))

编辑2015-06-05

sendFile 在低级别运行，而 addScript 或 $(widgetFile …) 在较高级别运行。

$(widgetFile …) 在项目编译之前使用 TemplateHaskell 将 Hamlet/Cassius/Lucius/Julius 模板转换为实际的 Haskell 源代码。这同样适用于[hamlet|…|]。

addScript与Route一起使用，而sendFile与FilePath一起使用。这意味着 addScript 将能够在编译时检测丢失的文件。 sendFile 将在运行时检测丢失的文件。

有一些工具可以将 Html 转换为 Hamlet:

• a one line script (这适用于简单的 Html)，
• html2hamlet .

Html 文件的 addScript 等效项没有意义:addScript 将生成一个 script 标记来告诉浏览器下载外部文件资源。这不适用于 Html 文件。