Создание маршрута для статических ресурсов или изображений в 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")
    ...