Inspect.hs

-- | print the env and response in the console

module Hack.Contrib.Middleware.Inspect (inspect) where

import Hack
import MPS.Light
import Prelude hiding ((.), (^))

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