haskell - 如何将 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/说它正在输出日志，但它们不会输出到标准输出。我以前从未使用过hslogger，并且无法弄清楚如何a）配置它，b）将它连接到happstack。nullConf提供了一个 default 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!"