[CBR-275] default severity is 'Debug'

Signed-off-by: Alexander Diemand <[email protected]>

Author: CodiePP

lib/src/Pos/Launcher/Resource.hs

@@ -66,7 +66,7 @@ import           Pos.Launcher.Param (BaseParams (..), LoggingParams (..),
                      NodeParams (..))
 import           Pos.Util (bracketWithLogging, newInitFuture)
 import           Pos.Util.Log.LoggerConfig (defaultInteractiveConfiguration)
-import           Pos.Util.Wlog (LoggerConfig (..), Severity (Info), WithLogger,
+import           Pos.Util.Wlog (LoggerConfig (..), Severity (Debug), WithLogger,
                      logDebug, logInfo, parseLoggerConfig, removeAllHandlers,
                      setupLogging)
 
@@ -243,7 +243,7 @@ getRealLoggerConfig LoggingParams{..} = do
     overrideConsoleLog :: LoggerConfig -> LoggerConfig
     overrideConsoleLog = case lpConsoleLog of
         Nothing    -> identity
-        Just True  -> (<>) (defaultInteractiveConfiguration Info)
+        Just True  -> (<>) (defaultInteractiveConfiguration Debug)
                       -- add output to the console with severity filter >= Info
         Just False -> identity
 

util/src/Pos/Util/Log/LoggerConfig.hs

@@ -143,21 +143,21 @@ instance FromJSON LoggerTree where
                             _lhBackend = StdoutBE,
                             _lhFpath = Nothing,
                             _lhSecurityLevel = Just PublicLogLevel,
-                            _lhMinSeverity = Just Info }
+                            _lhMinSeverity = Just Debug }
         let fileHandlers =
               map (\fp ->
                 let name = T.pack fp in
                 LogHandler { _lhName=name
                            , _lhFpath=Just fp
                            , _lhBackend=FileTextBE
-                           , _lhMinSeverity=Just Info
+                           , _lhMinSeverity=Just Debug
                            , _lhSecurityLevel=case ".pub" `T.isSuffixOf` name of
                                 True -> Just PublicLogLevel
                                 _    -> Just SecretLogLevel
                            }) $
                 maybeToList singleFile ++ manyFiles
         let _ltHandlers = fileHandlers <> handlers <> [consoleHandler]
-        (_ltMinSeverity :: Severity) <- o .: "severity" .!= Info
+        (_ltMinSeverity :: Severity) <- o .: "severity" .!= Debug
         -- everything else is considered a severity filter
         (_ltNamedSeverity :: NamedSeverity) <- for (filterKnowns o) parseJSON
         return LoggerTree{..}
@@ -180,10 +180,10 @@ instance Semigroup LoggerTree where
                 , _ltNamedSeverity = _ltNamedSeverity lt1 <> _ltNamedSeverity lt2
                 }
 instance Monoid LoggerTree where
-    mempty = LoggerTree { _ltMinSeverity = Info
+    mempty = LoggerTree { _ltMinSeverity = Debug
                    , _ltHandlers = [LogHandler { _lhName="console", _lhFpath=Nothing
                                                , _lhBackend=StdoutBE
-                                               , _lhMinSeverity=Just Info
+                                               , _lhMinSeverity=Just Debug
                                                , _lhSecurityLevel=Just PublicLogLevel}]
                    , _ltNamedSeverity = HM.empty
                    }