我有一个 Haskell
yesod
网络服务器,工作正常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 好吧,差不多了!
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 ]