如何从Snap monad提供静态文件？

Question

我的Snap站点有一个顶级位置：

snapSite :: Snap ()
snapSite = do
    ifTop myHomeHandler

除此之外，如果请求路径以＆＃34; .css＆＃34;结尾，我该如何提供静态文件;或＆＃34; .txt＆＃34;？

我注意到pathWith中的Snap.Internal.Core功能可以正常使用，但我不确定如何将其放入上面的Snap monad中。

Answer 1

＆＃34; Snap.Util.FileServe [c]使用Web处理程序来提供目录中的文件。＆＃34;

路线看起来像这样：

("/static", serveDirectory "static_directory_name")

要微调此过程，您还可以使用自己的DirectoryConfig并使用serveDirectoryWith。