在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页面包含一些＆＃34; img＆＃34;标签。如何创建路线以便图像结算？比如说，图像是文件夹中的位置＆＃34; img＆＃34;。

Answer 1

我喜欢做的是使用wai-middleware-static中间件来提供静态目录：

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