Skip to content

Commit fe573f8

Browse files
sergvpepeiborra
andauthored
Prefer Data.HashSet.member to Data.Foldable.elem (#2886)
* Prefer Data.HashSet.member to Data.Foldable.elem * Remove unused binding Co-authored-by: Pepe Iborra <pepeiborra@gmail.com>
1 parent 40acece commit fe573f8

File tree

2 files changed

+1
-2
lines changed

2 files changed

+1
-2
lines changed

ghcide/src/Development/IDE/Plugin/CodeAction/ExactPrint.hs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -514,7 +514,6 @@ extendImportViaParent df parent child (L l it@ImportDecl{..})
514514
listAnn = epAnn srcParent [AddEpAnn AnnOpenP (epl 1), AddEpAnn AnnCloseP (epl 0)]
515515
x :: LIE GhcPs = reLocA $ L l'' $ IEThingWith listAnn parentLIE NoIEWildcard [childLIE]
516516

517-
let hasSibling = not (null pre)
518517
lies' <- addCommaInImportList (reverse pre) x
519518
#endif
520519
return $ L l it{ideclHiding = Just (hide, L l' lies')}

plugins/hls-rename-plugin/src/Ide/Plugin/Rename.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -161,7 +161,7 @@ renameRefs newName refs = everywhere $ mkT replaceLoc
161161
replace _ = Unqual newName
162162

163163
isRef :: SrcSpan -> Bool
164-
isRef = (`elem` refs) . unsafeSrcSpanToLoc
164+
isRef = (`HS.member` refs) . unsafeSrcSpanToLoc
165165

166166
---------------------------------------------------------------------------------------------------
167167
-- Reference finding

0 commit comments

Comments
 (0)