我有 2 个功能：updateGrid -> 将 JSON 写入文件
updateGrid :: Field -> IO ()
updateGrid f = I.writeFile "grids/field.json" (encodeToLazyText f)
并响应它只返回文本
respond :: Text
respond = pack "Success"
我需要调用 updateGrid 函数，并在执行后调用响应函数，以便最终获取文本。
type ServerAPI =
Get '[JSON] Text
:<|> "new_game" :> Get '[JSON] Field
:<|> "update_grid" :> ReqBody '[JSON] Field :> Post '[JSON] Text