在Hasekll Spock中為靜態資產或圖像創建路由

Question

我從其網站上獲取了這個基本的Spock應用程序：

main :: IO ()
main =
    do ref <- newIORef 0
       spockCfg <- defaultSpockCfg EmptySession PCNoDatabase (DummyAppState ref)
       runSpock 8080 (spock spockCfg app)

app :: SpockM () MySession MyAppState ()
app =
    do get root $
           text "Hello World!"
       get -- ??? route for "/img/"???

我有一個html頁面，我可以像這樣返回：

但是，一個html頁面包含一些“ img”標簽。 我需要如何創建路線以便圖像解析？ 說，圖像是在文件夾“ img”中的位置。

Answer 1

我喜歡做的事情是使用wai-middleware-static中間件提供一個靜態目錄：

app :: SpockM () MySession MyAppState ()
app = do
    middleware $ staticPolicy (addBase "static")
    ...