diff --git a/src/FSharpVSPowerTools.Core/TypedAstUtils.fs b/src/FSharpVSPowerTools.Core/TypedAstUtils.fs index 423783f9..c817c554 100644 --- a/src/FSharpVSPowerTools.Core/TypedAstUtils.fs +++ b/src/FSharpVSPowerTools.Core/TypedAstUtils.fs @@ -299,13 +299,13 @@ module TypedAstPatterns = module UnusedDeclarations = open System.Collections.Generic - let symbolsComparer = + let symbolUseComparer = { new IEqualityComparer with member __.Equals (x, y) = x.Symbol.IsEffectivelySameAs y.Symbol member __.GetHashCode x = x.Symbol.GetHashCode() } let getSingleDeclarations (symbolsUses: SymbolUse[]): FSharpSymbol[] = - let symbols = Dictionary(symbolsComparer) + let symbols = Dictionary(symbolUseComparer) for symbolUse in symbolsUses do match symbols.TryGetValue symbolUse.SymbolUse with diff --git a/src/FSharpVSPowerTools/FSharpVSPowerTools.csproj b/src/FSharpVSPowerTools/FSharpVSPowerTools.csproj index 046cfa7c..5447aeb9 100644 --- a/src/FSharpVSPowerTools/FSharpVSPowerTools.csproj +++ b/src/FSharpVSPowerTools/FSharpVSPowerTools.csproj @@ -46,7 +46,7 @@ DEBUG;TRACE prompt 4 - False + True true