如何在Wai/Warp中为images/css/js文件夹服务？

Question

我有这个简单的围/经申请

app :: Wai.Application 
app req respond = respond $ case Wai.rawPathInfo req of 
    "/" -> Wai.responseFile status200 [("Content-Type", "text/html")] "views/index.html" Nothing 
    _ -> notFound 


notFound :: Wai.Response 
notFound = Wai.responseLBS status404 [("Content-Type", "text/plain")] "404 - Not Found" 

main :: IO() 
main = do 
    port <- getEnv "PORT" 
    let setting = Warp.setPort (read port :: Int) Warp.defaultSettings 
    putStrLn $ "start server on the port " ++ port 
    Warp.runSettings setting app 

我如何添加文件夹“图像”的路线，使任何图片我就可以从index.html作为“是指任何图像图片/ something.jpg“？我知道如何添加一个确切的路线，但在这里我需要添加一个完整的文件夹。

Answer 1

Network.Wai.Middleware.Static有staticPolicy FN，需要一个Policy并返回Middleware您可以添加到您的围应用。 A Policy将定义用户提供的URI将如何映射到文件路径。检出addBase构建Policy;这可能适合你的需要就好了。