SimpleAccessLogger.hs

module Hack.Contrib.SimpleAccessLogger where

import Hack
import Hack.Utils
import Hack.Request
import Hack.Contrib.Hub

import MPSUTF8
import Prelude hiding ((.), (^), (>))
import Data.Maybe

program = "SimpleAccessLogger"

simple_access_logger :: Maybe Stream -> MiddleWare
simple_access_logger stream app = \env -> do
  let my_stream = stream.fromMaybe (env.hack_errors)
  let log = simple_logger my_stream program
  
  Info .log (env.url.url2unicode)
  
  app env