Skip to content

Commit b6ffd3c

Browse files
committed
HlsRefactorPlugin: fixes stylish haskell
1 parent 56acfe6 commit b6ffd3c

File tree

1 file changed

+5
-1
lines changed
  • plugins/hls-refactor-plugin/src/Development/IDE/Plugin

1 file changed

+5
-1
lines changed

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

+5-1
Original file line numberDiff line numberDiff line change
@@ -1982,14 +1982,18 @@ smallerRangesForBindingExport lies b =
19821982
where
19831983
unqualify = snd . breakOnEnd "."
19841984
b' = wrapOperatorInParens $ unqualify b
1985+
19851986
#if MIN_VERSION_ghc(9,9,0)
19861987
ranges' (L _ (IEThingWith _ thing _ inners _))
1988+
| T.unpack (printOutputable thing) == b' = []
1989+
| otherwise =
1990+
[ locA l' | L l' x <- inners, T.unpack (printOutputable x) == b']
19871991
#else
19881992
ranges' (L _ (IEThingWith _ thing _ inners))
1989-
#endif
19901993
| T.unpack (printOutputable thing) == b' = []
19911994
| otherwise =
19921995
[ locA l' | L l' x <- inners, T.unpack (printOutputable x) == b']
1996+
#endif
19931997
ranges' _ = []
19941998

19951999
rangesForBinding' :: String -> LIE GhcPs -> [SrcSpan]

0 commit comments

Comments
 (0)