1

我试图了解如何使用 warp 编写 Web 服务，该服务具有我希望从我的所有请求中访问的长期资源（即我希望资源在服务器的整个生命周期内都存在，而不是每个请求都存在）。我假设这是 ResourceT 的用途，但我不确定我实际上是如何做到这一点的。

我的特殊用途是我想公开一个文件句柄，我目前已经将它包裹在状态单子中。如果在使用 warp 和 ResourceT 时这没有意义，我很高兴改变这种方法。此代码的早期版本可以在代码审查中看到：https ://codereview.stackexchange.com/questions/9177/my-simple-haskell-key-value-file-store

提前致谢，

马特

4

1 回答 1

4

最明显的方法是将文件句柄作为参数传递给应用程序。

import Control.Monad.Trans (liftIO)
import Data.ByteString.Lazy as Bl
import Network.HTTP.Types
import Network.Wai
import Network.Wai.Handler.Warp as Warp
import System.IO

doSomethingWithAFileHandle :: Handle -> IO ()
doSomethingWithAFileHandle =
  undefined -- insert your logic here

app :: Handle -> Application
app h req = do
  let headers = []
      body    = Bl.empty

  liftIO $ doSomethingWithAFileHandle h

  return $! responseLBS ok200 headers body

main :: IO ()
main =
  -- get some file handle
  withBinaryFile "/dev/random" ReadMode $ \ h ->

    -- and then partially apply it to get an Application
    Warp.run 3000 (app h)
于 2012-03-27T09:01:54.820 回答