From 975ab50e564a910e7e27577912c32e20c80a48cc Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 17 Dec 2020 15:07:06 +0100 Subject: [PATCH] Logging: Show block logs in debug and info --- Modules.Logging/Logger.vb | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Modules.Logging/Logger.vb b/Modules.Logging/Logger.vb index abf4be24..c4d978b1 100644 --- a/Modules.Logging/Logger.vb +++ b/Modules.Logging/Logger.vb @@ -12,8 +12,10 @@ Public Class Logger Public Sub NewBlock(blockId As String) Dim message As String = $"-----> Start of Block {blockId}" Dim logEventInfo As New LogEventInfo(LogLevel.Info, Name, message) + Dim logEventDebug As New LogEventInfo(LogLevel.Debug, Name, message) Dim WrapperType As Type = GetType(Logger) + Log(WrapperType, logEventDebug) Log(WrapperType, logEventInfo) End Sub @@ -21,8 +23,10 @@ Public Class Logger Public Sub EndBlock() Dim message As String = $"<----- End of Block" Dim logEventInfo As New LogEventInfo(LogLevel.Info, Name, message) + Dim logEventDebug As New LogEventInfo(LogLevel.Debug, Name, message) Dim WrapperType As Type = GetType(Logger) + Log(WrapperType, logEventDebug) Log(WrapperType, logEventInfo) End Sub End Class