Logging rich messages in co-log

Log.hs

{-# LANGUAGE OverloadedStrings #-}
import Colog
import Control.Monad.IO.Class (MonadIO)
import Data.Text (Text)

foo :: (WithLog env Message m, MonadIO m) => m ()
foo = do
  logWarning "Hello"
  logWarning "World"

logTextBoth :: LogAction IO Text
logTextBoth = logTextStdout <> logTextStderr

main :: IO ()
main = do
  let action = upgradeMessageAction defaultFieldMap $ cmapM fmtRichMessageDefault logTextBoth
  usingLoggerT action foo