如何将Happstack日志发送到stdout

Question

我有一个简单的hello world happstack应用程序：

module Main where
import Happstack.Server (nullConf, simpleHTTP, toResponse, ok)
main :: IO ()
main = simpleHTTP nullConf $ ok "Hello, World!"

我希望它将请求记录到stdout

我发现了这个http://happstack.wordpress.com/2009/02/26/happstack-now-outputs-apache-combined-logs/它说它正在输出日志，但它们不会输出到stdout。我以前从未使用过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!"