如何使用Snap Framework在服务器端存储一些对象？

Question

该问题已在2010年提出，但我认为今天可能会有更好的答案。 基本上，我需要存储某种对象并在每个请求中访问它，理想情况下，我希望能够在请求中更改该对象（我想MVar或IORef可以做到这一点）。

snaplet教程似乎表明有可能，但是它主要说明了如何使用snaplet（毕竟这是该教程的目的），并且并没有真正解释该“ App”对象的工作方式或存储方式。 我不知道如何将其应用到我不需要Snaplet的情况下（我正在制作API，因此甚至不需要Heist）。

所以给定默认代码：

site :: Snap ()
site = do
  ifTop (writeBS "hello world") <|>
    route [ ("stuff/:param", someHandler) ] <|>
    dir "static" (serveDirectory ".")

如何更改此设置以“在某些地方可以在someHandler中使用”某个对象“注册”？ 2010年的答案是将其部分应用到每个处理程序，这将起作用，但是Snaplet教程使我认为必须有更好的方法。

Answer 1

在snaplet教程的“使用状态”一节中，他们解释了如何使用本地状态。 如果您在上面的“快照概述”部分中查看第二段代码，则可以看到他们使用Lens初始化其数据类型时如何设置状态。

不知道您对这些东西有多熟悉，但是Lens允许您访问（即读/写/调整）较大值内的数据。 在这种情况下，服务器的整个状态表示为一个数据块（记录类型值），该数据块在服务器处于初始化状态时被初始化。

请注意以下_companyName :: IORef B.ByteString ： _companyName :: IORef B.ByteString <-是一种状态，您可以在示例中_companyName :: IORef B.ByteString ，而在“使用状态”部分中，它们正是这样做的。 他们有一个使用HTTP GET或POST到该URL的示例，并使用新的“名称”参数（POST）更新它并返回新状态，或者如果它是GET，则仅返回当前状态。