module Hack.Contrib.SimpleAccessLogger where

import Hack
import Hack.Utils
import Hack.Request
import Hack.Contrib.Hub
import Prelude hiding ((.), (^), (>))
import MPS

simple_access_logger :: Maybe Stream -> Maybe Formatter -> String -> MiddleWare
simple_access_logger stream formatter program app = \env -> do
  let log = simple_logger stream formatter program env
  Debug .log (env.url)
  app env