From 2a4b9d9cf41d3b023cc8dde11d08550ffb57d1de Mon Sep 17 00:00:00 2001 From: Ondrej Sebek Date: Mon, 16 May 2022 20:36:46 +0200 Subject: [PATCH] Fix multiline eval padding See haskell#2907 --- plugins/hls-eval-plugin/src/Ide/Plugin/Eval/CodeLens.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/plugins/hls-eval-plugin/src/Ide/Plugin/Eval/CodeLens.hs b/plugins/hls-eval-plugin/src/Ide/Plugin/Eval/CodeLens.hs index 70d7c7d130..32419d6cad 100644 --- a/plugins/hls-eval-plugin/src/Ide/Plugin/Eval/CodeLens.hs +++ b/plugins/hls-eval-plugin/src/Ide/Plugin/Eval/CodeLens.hs @@ -358,8 +358,9 @@ runTests EvalConfig{..} e@(_st, _) tests = do dbg "TEST RESULTS" rs let checkedResult = testCheck eval_cfg_diff (section, test) rs + let resultLines = concatMap T.lines checkedResult - let edit = asEdit (sectionFormat section) test (map pad checkedResult) + let edit = asEdit (sectionFormat section) test (map pad resultLines) dbg "TEST EDIT" edit return edit