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