Safe Haskell	None

Network.Wai.Graceful

Description

 app req = do
     liftIO $ somethingImportant -- like threadDelay 100000000
     LBSResponse status200 [("Content-Type", "text/plain")] "Finished!"

 main = do
     gs <- initGraceful

     forkIO $ run 8000 (graceful gs app)

     waitForTermination >> gracefulShutdown 15 gs
     putStrLn "Bye!"

Synopsis

Documentation

initGraceful :: IO Graceful Source

data Graceful Source

Constructors

Graceful
Fields activeConnections :: MVar Int shutdownTrigger :: MVar Bool

graceful :: Graceful -> Application -> Application Source

WAI Middleware that keeps track of active connections and blocks further requests with HTTP503.

gracefulShutdown Source

Arguments

:: Int	Timeout in seconds.
-> Graceful
-> IO ()

Trigger shutdown and monitor progress.

waitForTermination :: IO ()Source

Wait for TERM signal.