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 提供了默认的 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!"