如何從Snap monad提供靜態文件？

Question

我有這樣快的網站有一個頂級的位置：

snapSite :: Snap() 
snapSite = do 
    ifTop myHomeHandler 

除了這個，我怎麼能提供靜態文件只有請求路徑用「的CSS」或「.TXT」結束？

我注意到Snap.Internal.Core中有一個pathWith函數可以工作，但我不確定如何使它適合上面的Snap monad。

Answer 1

「Snap.Util.FileServe [c]提供web處理程序來提供目錄中的文件。」

的路線將是這個樣子：

("/static", serveDirectory "static_directory_name") 

微調這個過程中，您還可以使用自己的DirectoryConfig和使用serveDirectoryWith。