File tree Expand file tree Collapse file tree 2 files changed +1
-2
lines changed
ghcide/src/Development/IDE/Plugin/CodeAction
plugins/hls-rename-plugin/src/Ide/Plugin Expand file tree Collapse file tree 2 files changed +1
-2
lines changed Original file line number Diff line number Diff line change @@ -514,7 +514,6 @@ extendImportViaParent df parent child (L l it@ImportDecl{..})
514
514
listAnn = epAnn srcParent [AddEpAnn AnnOpenP (epl 1 ), AddEpAnn AnnCloseP (epl 0 )]
515
515
x :: LIE GhcPs = reLocA $ L l'' $ IEThingWith listAnn parentLIE NoIEWildcard [childLIE]
516
516
517
- let hasSibling = not (null pre)
518
517
lies' <- addCommaInImportList (reverse pre) x
519
518
#endif
520
519
return $ L l it{ideclHiding = Just (hide, L l' lies')}
Original file line number Diff line number Diff line change @@ -161,7 +161,7 @@ renameRefs newName refs = everywhere $ mkT replaceLoc
161
161
replace _ = Unqual newName
162
162
163
163
isRef :: SrcSpan -> Bool
164
- isRef = (`elem ` refs) . unsafeSrcSpanToLoc
164
+ isRef = (`HS.member ` refs) . unsafeSrcSpanToLoc
165
165
166
166
---------------------------------------------------------------------------------------------------
167
167
-- Reference finding
You can’t perform that action at this time.
0 commit comments