1

У меня есть 2 функции: updateGrid -> записывает JSON в файл

updateGrid :: Field -> IO ()
updateGrid f = I.writeFile "grids/field.json" (encodeToLazyText f)

и respond, который просто возвращает текст

respond :: Text
respond = pack "Success"

Мне нужно чтобы вызвалась функция updateGrid, а после её выполнения функция respond, чтобы в конечном итоге получить Text.

type ServerAPI =
        Get '[JSON] Text
   :<|> "new_game" :> Get '[JSON] Field
   :<|> "update_grid" :> ReqBody '[JSON] Field :> Post '[JSON] Text

1 ответ 1

1

Без текста программы не совсем понятно, но предположу, что обработчик должен выглядеть так.

import Control.Monad.IO.Class (liftIO)

updateGridHandler :: Field -> Handler Text
updateGridHandler field = do
  liftIO $ updateGrid field
  return respond
1
  • Всё заработало, спасибо огромное!!
    – user363996
    16 дек 2019 в 12:18

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.