haskell/haskell-language-server
1
1
Fork 0
mirror of https://github.com/haskell/haskell-language-server.git synced 2024-09-11 08:45:35 +03:00
Code Issues Projects Releases Wiki Activity

HlsRefactorPlugin: fixes stylish haskell

Browse Source
This commit is contained in:
David Sáenz 2024-07-06 19:51:57 +02:00
parent 56acfe6e5c
commit b6ffd3c106
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
plugins/hls-refactor-plugin/src/Development/IDE/Plugin/CodeAction.hs
View File

@ -1982,14 +1982,18 @@ smallerRangesForBindingExport lies b =
where
unqualify = snd . breakOnEnd "."
b' = wrapOperatorInParens $ unqualify b
#if MIN_VERSION_ghc(9,9,0)
ranges' (L _ (IEThingWith _ thing _ inners _))
#else
ranges' (L _ (IEThingWith _ thing _ inners))
#endif
| T.unpack (printOutputable thing) == b' = []
| otherwise =
[ locA l' | L l' x <- inners, T.unpack (printOutputable x) == b']
#else
ranges' (L _ (IEThingWith _ thing _ inners))
| T.unpack (printOutputable thing) == b' = []
| otherwise =
[ locA l' | L l' x <- inners, T.unpack (printOutputable x) == b']
#endif
ranges' _ = []
rangesForBinding' :: String -> LIE GhcPs -> [SrcSpan]