Создание маршрута для статических ресурсов или изображений в Hasekll Spock

У меня есть это базовое приложение 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».


person user7905648    schedule 04.05.2017    source источник


Ответы (1)


Мне нравится использовать промежуточное ПО wai-middleware-static для обслуживания статического каталога:

app :: SpockM () MySession MyAppState ()
app = do
    middleware $ staticPolicy (addBase "static")
    ...
person Jean-Baptiste Potonnier    schedule 04.05.2017