Inspect.hs

-- | print the env and response in the console
module Hack.Contrib.Middleware.Inspect (inspect) where

import Hack
import MPSUTF8
import Prelude hiding ((.), (^))

inspect :: Middleware
inspect app = \env -> env.trace'.app ^ trace'