13、Haskell 实战：构建 RESTful API 与 MVC 风格 Web 应用

Haskell 实战：构建 RESTful API 与 MVC 风格 Web 应用

1. RESTful API 开发

在开发应用程序时，我们可以通过 RESTful API 让其可通过网络访问。首先，我们需要对 main 函数进行修改：

main :: IO ()
main =
  -- 修改前
  -- withState $ \le state@(_, _, mqState, _) -> do
  -- 修改后
  withState $ \port le state@(_, _, mqState, _) -> do
    let runner = run le state
    MQAuth.init mqState runner
    -- 修改前
    -- runner action
    -- 修改后
    HTTP.main port runner

这里我们用 HTTP.main port runner 替换了 runner action ，并且不再需要 action 函数。 HTTP.main 内部调用了 scottyT ，它会一直阻塞，因为它在运行一个 Web 服务器来处理所有请求。

1.1 运行应用程序

完成必要的代码编写后，我们可以进行测试。具体操作步骤如下：
1. 打开 REPL。
2. 在 L