AWS CloudWatch的正确格式

如何解决AWS CloudWatch的正确格式

我在运行于AWS ECS的Docker容器中使用Servant和colog。

HTTP请求已完美登录到AWS CloudWatch，但没有手动登录。

我以这种方式启动了我的WAI服务器：

main :: IO ()
main = do
  withStdoutLogger $ \aplogger -> do
    let settings = setPort 8080 $ setLogger aplogger defaultSettings
    initializeApplication >>= runSettings settings

我还尝试通过以下方式模仿Apache Logging风格：

logStringStdoutCloudWatch :: Monadio m => LogAction m String
logStringStdoutCloudWatch = LogAction $ \x -> liftIO $ do
  let format = "%d/%b/%Y:%T %z"
  time <- getCurrentTime
  putStrLn $ "- - - [" ++ formatTime defaultTimeLocale format time ++ "] \"log\" - - \"\" \"" ++ x ++ "\""

它给了我以下日志：

- - - [12/Nov/2020:16:36:16 +0000] "log" - - "" "A log message"
127.0.0.1 - - [12/Nov/2020:17:36:16 +0100] "POST /event HTTP/1.1" 400 - "" "Client"

但是只有最后一行记录在CloudWatch中。

我的格式有什么问题？或者：是否有专用的lib / function具有正确的格式？

解决方法

实际上，我欺骗了将日志格式更改为json，首先是在Servant级别：

import Network.Wai.Middleware
import Network.Wai.Middleware.RequestLogger
import Network.Wai.Middleware.RequestLogger.JSON(formatAsJSONWithHeaders)

initializeApplication :: IO Application
initializeApplication = do
  logger <- 
  mkRequestLogger def {outputFormat = CustomOutputFormatWithDetailsAndHeaders formatAsJSONWithHeaders}
  return
    $ logger
    $ serve (Proxy @API)
    $ hoistServer (Proxy @API) (toHandler env) server

main :: IO ()
main = do
  let settings = setPort 8080 defaultSettings
  initializeApplication >>= runSettings settings

和记录器：

logStringStdoutCloudWatch :: MonadIO m => LogAction m String
logStringStdoutCloudWatch = LogAction $ \x -> liftIO $ do
  let format = "%d/%b/%Y:%T %z"
  time <- getCurrentTime
  putStrLn $ "{\"time\":\"" ++ formatTime defaultTimeLocale format time ++ "\",\"log\":\"" ++ x ++ "\"}"