Use SevDebug for warnings that didn't contribute to a failure

fossas · Feb 3, 2021 · 402baa4 · 402baa4
1 parent 8a4b77c
commit 402baa4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Control/Carrier/Diagnostics.hs b/src/Control/Carrier/Diagnostics.hs
@@ -82,7 +82,7 @@ renderWarnings :: [SomeDiagnostic] -> Doc AnsiStyle
 renderWarnings = align . vsep . map renderSomeDiagnostic
 
 logResultWarnings :: Has Logger sig m => ResultBundle a -> m a
-logResultWarnings ResultBundle {..} = logWarn (renderWarnings resultWarnings) $> resultValue
+logResultWarnings ResultBundle {..} = logDebug (renderWarnings resultWarnings) $> resultValue
 
 logErrorBundle :: Has Logger sig m => FailureBundle -> m ()
 logErrorBundle = logError . renderFailureBundle