我想为我的webapp实现一个“优雅的关闭”命令(而不是我的第一个直觉,那就是要求人们终止进程)
我的前两次尝试包括
liftIO exitSuccess
E.yield (responseLBS statusOK [G.contentType "text/plain"] "") E.EOF
这两者都只是愉快地将结果返回给客户端,并继续侦听。应用程序能做什么来杀死服务器吗?这是想要做的合理的事情吗?
我承认我对iteratee的理解不是很深入,只知道我可以使用我的输入,并且Iteratee是一个MonadIO实例。
发布于 2011-11-17 13:59:34
exitImmediately
。这是拆卸进程的最快方法之一,而且调试起来也非常烦人。我不相信终结器/括号/最终块会在下降的过程中被调用,这取决于你的应用程序可能会被破坏的状态。Warp.run
不捕获异常,因此这是通过允许主线程(且仅限于主线程)上的默认异常处理程序终止进程来实现的。正如其他人提到的,使用MVar可能是最好的选择。为了完整起见,我将其他部分包括在内,但它们确实有自己的位置。在基础库中使用了throwTo
,我开发过一些使用C语言的exitImmediately
:exit()
的应用程序,不过我还没有遇到过使用这种方法的Haskell应用程序。
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE OverloadedStrings #-}
module Main (main) where
import Control.Concurrent (MVar, ThreadId, forkIO, myThreadId, newEmptyMVar, putMVar, takeMVar)
import Control.Exception (Exception, throwTo)
import Control.Monad.Trans (liftIO)
import Data.ByteString (ByteString)
import Data.Data (Data, Typeable)
import Data.Enumerator (Iteratee)
import Network.HTTP.Types
import Network.Wai as Wai
import Network.Wai.Handler.Warp as Warp
import System.Exit (ExitCode (ExitSuccess))
import System.Posix.Process (exitImmediately)
data Shutdown = Shutdown deriving (Data, Typeable, Show)
instance Exception Shutdown
app :: ThreadId -> MVar () -> Request -> Iteratee ByteString IO Response
app mainThread shutdownMVar Request{pathInfo = pathInfo} = do
liftIO $ case pathInfo of
["shutdownByThrowing"] -> throwTo mainThread Shutdown
["shutdownByMVar"] -> putMVar shutdownMVar ()
["shutdownByExit"] -> exitImmediately ExitSuccess
_ -> return ()
return $ responseLBS statusOK [headerContentType "text/plain"] "ok"
main :: IO ()
main = do
mainThread <- myThreadId
shutdownMVar <- newEmptyMVar
forkIO $ Warp.run 3000 (app mainThread shutdownMVar)
takeMVar shutdownMVar
https://stackoverflow.com/questions/7881327
复制相似问题