Censor.hs

-- Censor it !

module Hack.Contrib.Middleware.Censor (censor) where

import Hack

censor :: (Response -> IO Response) -> Middleware
censor alter app = \env -> app env >>= alter