We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent ddf34a5 commit 1925ff0Copy full SHA for 1925ff0
plugins/hls-refactor-plugin/src/Development/IDE/GHC/ExactPrint.hs
@@ -698,7 +698,7 @@ annotate dflags needs_space ast = do
698
let rendered = render dflags ast
699
#if MIN_VERSION_ghc(9,4,0)
700
expr' <- lift $ mapLeft (showSDoc dflags . ppr) $ parseAST dflags uniq rendered
701
- pure expr'
+ pure $ setPrecedingLines expr' 0 (bool 0 1 needs_space)
702
#elif MIN_VERSION_ghc(9,2,0)
703
expr' <- lift $ mapLeft show $ parseAST dflags uniq rendered
704
pure $ setPrecedingLines expr' 0 (bool 0 1 needs_space)
0 commit comments