主页 / coding / 问题 / 79117401
Accepted
OrenIshShalom
Asked: 2024-10-23 17:54:30 +0800 CST

控制 Wai 记录器消息

  • 772

我有一个 Haskellyesod网络服务器，它运行良好1,2，并且日志记录良好3：

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes       #-}
{-# LANGUAGE TemplateHaskell   #-}
{-# LANGUAGE TypeFamilies      #-}
{-# LANGUAGE DeriveGeneric     #-}
{-# LANGUAGE DeriveAnyClass    #-}
{-# LANGUAGE OverloadedStrings #-}

import Yesod
import Prelude
import Data.Aeson()
import GHC.Generics
import Data.Text
import Data.Time
import Yesod.Core.Types
import System.Log.FastLogger
import Network.Wai.Handler.Warp

-- Wai stuff
import qualified Network.Wai
import qualified Network.Wai.Logger
import qualified Network.HTTP.Types.Status
import qualified Network.Wai.Middleware.RequestLogger as Wai

data Healthy = Healthy Bool deriving ( Generic )

-- | This is just for the health check ...
instance ToJSON Healthy where toJSON (Healthy status) = object [ "healthy" .= status ]

data App = App

mkYesod "App" [parseRoutes|
/healthcheck HealthcheckR GET
|]

instance Yesod App where
    makeLogger = \_app -> myLogger

getHealthcheckR :: Handler Value
getHealthcheckR = do
    $logInfoS "(HealthCheck)" "Good !"
    returnJson $ Healthy True

myLogger :: IO Logger
myLogger = do
    _loggerSet <- newStdoutLoggerSet defaultBufSize
    formatter <- newTimeCache "[%d/%m/%Y ( %H:%M:%S )]"
    return $ Logger _loggerSet formatter

dateFormatter :: String -> String
dateFormatter date = let
    date' = parseTimeOrError True defaultTimeLocale "%d/%b/%Y:%T %Z" date :: UTCTime
    in formatTime defaultTimeLocale "[%Y/%m/%d ( %H:%M:%S )]" date'

formatter :: Network.Wai.Logger.ZonedDate -> Network.Wai.Request -> Network.HTTP.Types.Status.Status -> Maybe Integer -> LogStr
formatter zonedDate req status responseSize = "[ 17/17/2017 ]\n"

main :: IO ()
main = do
    waiApp <- toWaiApp App
    middleware <- Wai.mkRequestLogger (Wai.defaultRequestLoggerSettings { Wai.outputFormat = Wai.CustomOutputFormat formatter })
    run 3000 $ middleware waiApp

当我检查日志时，我看到三条消息，其中两条是我的

[23/10/2024 ( 15:07:06 )] [Info#(HealthCheck)] Good ! @(main:Main src/Main.hs:41:6)
172.17.0.1 - - [23/Oct/2024:15:07:06 +0000] "GET /healthcheck HTTP/1.1" 200 16 "" "curl/8.9.1"
[ 17/17/2017 ]

消息从哪里来172.17.0.1 - - ...的？！看来它一定来自 Wai 层（对吧？）但话说回来，我以为我配置了 Wai 日志

1,2完整的源代码在这里，根据评论进行了编辑以简化

3嗯，差不多了！

haskell

1 个回答

  1. Best Answer

    该函数添加了包含请求日志记录的默认中间件。要添加不包含toWaiApp日志记录的默认中间件，您需要使用然后添加一组不包含日志记录的默认中间件：toWaiAppPlain

    main :: IO ()
main = do
    waiApp <- toWaiAppPlain App
    myLoggingMiddleware <- Wai.mkRequestLogger (Wai.defaultRequestLoggerSettings { Wai.outputFormat = Wai.CustomOutputFormat formatter })
    let middleware = myLoggingMiddleware . defaultMiddlewaresNoLogging
    run 3000 $ middleware waiApp

    经过这一更改后，问题中的测试程序对于一个请求仅生成两行：

    [23/10/2024 ( 11:18:56 )] [Info#(HealthCheck)] Good ! @(main:Main WaiLogger.hs:43:6)
[ 17/17/2017 ]
    • 1

相关问题