haskell - Happstack ログを stdout に送信する方法は?

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/を見つけましたが、標準出力にはなりません。これまで hslogger を使用したことがなく、a) 構成する方法と、b) happstack に接続する方法を理解するのに苦労しています。nullConfdefault を提供します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!"