module Network.Salvia.Handler.Environment
( hDefaultEnv
, hEnvNoKeepAlive
)
where
import Control.Monad.State
import Network.Protocol.Http
import Network.Salvia.Interface
import Network.Salvia.Handler.Banner
import Network.Salvia.Handler.Close
import Network.Salvia.Handler.Error
import Network.Salvia.Handler.Head
import Network.Salvia.Handler.Parser
import Network.Salvia.Handler.Printer
import Prelude hiding (log)
hDefaultEnv
:: (MonadIO m, HandleM m, RawHttpM' m, HttpM' m, QueueM m, SendM m, FlushM Response m)
=> m ()
-> m ()
hDefaultEnv handler =
hKeepAlive $
do hBanner "salvia-httpd"
_ <- hRequestParser (1000 * 4)
(hCustomError BadRequest)
(hHead handler)
hResponsePrinter
hEnvNoKeepAlive
:: (MonadIO m, HandleM m, RawHttpM' m, HttpM' m, QueueM m, SendM m, FlushM Response m)
=> m ()
-> m ()
hEnvNoKeepAlive handler =
do hBanner "salvia-httpd"
_ <- hRequestParser (1000 * 4)
(hCustomError BadRequest)
(hHead handler)
hResponsePrinter