Я хочу извлечь значение из объекта json. И у меня есть это: post "/test" $ do a <- jsonBody' let b = show (a :: Object) -- works well myVal <- (a :: Object) .: "some_key" -- error text "test123" И...

Я запускаю сервер Spock и хочу обслуживать некоторый статический контент. Я использую функцию respondMiddleware из пакета "Web.Spock.Action". Подпись: respondMiddleware :: Monad m => Middleware -> ActionCtxT ctx m a Я получаю...