Fix formatting of log messages

michaelpj · michaelpj · commit 88cf0aee57e1 · 2022-03-07T12:09:07.000Z
diff --git a/exe/Main.hs b/exe/Main.hs
@@ -56,7 +56,7 @@ main = do
                 & cmapWithPrio renderDoc
             , lspLogRecorder
                 & cfilter (\WithPriority{ priority } -> priority >= minPriority)
-                & cmapWithPrio renderDoc
+                & cmapWithPrio (renderStrict . layoutPretty defaultLayoutOptions)
             ]
 
       defaultMain

Original file line number	Diff line number	Diff line change
`@@ -56,7 +56,7 @@ main = do`
`56`	`56`	`& cmapWithPrio renderDoc`
`57`	`57`	`, lspLogRecorder`
`58`	`58`	`& cfilter (\WithPriority{ priority } -> priority >= minPriority)`
`59`		`- & cmapWithPrio renderDoc`
	`59`	`+ & cmapWithPrio (renderStrict . layoutPretty defaultLayoutOptions)`
`60`	`60`	`]`
`61`	`61`
`62`	`62`	`defaultMain`