From 5c6f811d28a640ae948ff0294b7d670d837edc5e Mon Sep 17 00:00:00 2001
From: Vasily Kirichenko <vaskir@gmail.com>
Date: Sat, 31 Dec 2016 14:07:53 +0300
Subject: [PATCH] fix FSharpSymbolUse.IsPrivateToFile for values and functions

---
 vsintegration/src/FSharp.Editor/Common/CommonHelpers.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vsintegration/src/FSharp.Editor/Common/CommonHelpers.fs b/vsintegration/src/FSharp.Editor/Common/CommonHelpers.fs
index c9569ebd1a3..57d15f9acd7 100644
--- a/vsintegration/src/FSharp.Editor/Common/CommonHelpers.fs
+++ b/vsintegration/src/FSharp.Editor/Common/CommonHelpers.fs
@@ -483,7 +483,7 @@ module internal Extensions =
         member this.IsPrivateToFile = 
             let isPrivate =
                 match this.Symbol with
-                | :? FSharpMemberOrFunctionOrValue as m -> not m.IsModuleValueOrMember
+                | :? FSharpMemberOrFunctionOrValue as m -> not m.IsModuleValueOrMember || m.Accessibility.IsPrivate
                 | :? FSharpEntity as m -> m.Accessibility.IsPrivate
                 | :? FSharpGenericParameter -> true
                 | :? FSharpUnionCase as m -> m.Accessibility.IsPrivate