Как отправить логи Happstack на стандартный вывод?

Question

У меня есть простое приложение hello world happstack:

module Main where

import Happstack.Server (nullConf, simpleHTTP, toResponse, ok)

main :: IO ()
main = simpleHTTP nullConf $ ok "Hello, World!"

Я хочу, чтобы он записывал запросы на стандартный вывод.

Я нашел этот http://happstack.wordpress.com/2009/02/26/happstack-now-outputs-apache-combined-logs/ который говорит, что выводит логи, но они не собираются в stdout. Я никогда раньше не использовал hslogger, и мне трудно понять, как а) сконфигурировать его и б) подключить его к happstack. nullConf обеспечивает по умолчанию logMAccess, но не ясно, как это заканчивается в hslogger.

Answer 1

Сразу после публикации я нашел это: http://www.haskell.org/pipermail/beginners/2011-August/008184.html который дал мне подсказку, в которой я нуждался.

module Main where

import Happstack.Server (nullConf, simpleHTTP, toResponse, ok)

import System.IO
import System.Log.Logger ( updateGlobalLogger
                         , rootLoggerName
                         , setLevel
                         , Priority(..)
                         )

main :: IO ()
main = do
  updateGlobalLogger rootLoggerName (setLevel INFO)

  simpleHTTP nullConf $ ok "Hello, World!"