Daemon/Identifier Highlighting: add record struct (#1150)

Author: DedSec256

ReSharper.FSharp/src/FSharp/FSharp.Common/src/Util/FSharpHighlightingAttributeIds.fs

@@ -277,6 +277,14 @@ type FSharpNonTailRecursionGutterMarkType() =
       Layer = HighlighterLayer.SYNTAX,
       EffectType = EffectType.TEXT, ForegroundColor = "DarkBlue", DarkForegroundColor = "LightBlue");
 
+    RegisterHighlighter(
+      FSharpHighlightingAttributeIds.StructRecord,
+      FallbackAttributeId = DefaultLanguageAttributeIds.STRUCT,
+      GroupId = FSharpHighlightingAttributeIds.GroupId,
+      RiderPresentableName = "Types//StructRecord",
+      Layer = HighlighterLayer.SYNTAX,
+      EffectType = EffectType.TEXT, ForegroundColor = "DarkBlue", DarkForegroundColor = "LightBlue");
+
   RegisterHighlighter(
       FSharpHighlightingAttributeIds.Literal,
       FallbackAttributeId = DefaultLanguageAttributeIds.CONSTANT,

ReSharper.FSharp/src/FSharp/FSharp.Psi/src/Features/Daemon/FSharpSymbolHighlightingUtil.cs

@@ -28,7 +28,9 @@ public static string GetEntityHighlightingAttributeId([NotNull] this FSharpEntit
         return FSharpHighlightingAttributeIdsModule.Union;
 
       if (entity.IsFSharpRecord)
-        return FSharpHighlightingAttributeIdsModule.Record;
+        return entity.IsValueType
+          ? FSharpHighlightingAttributeIdsModule.StructRecord
+          : FSharpHighlightingAttributeIdsModule.Record;
 
       if (entity.IsMeasure)
         return FSharpHighlightingAttributeIdsModule.UnitOfMeasure;

ReSharper.FSharp/test/data/features/daemon/identifierHighlighting/Record 01.fs

@@ -0,0 +1 @@
+type Record = { A: int }

ReSharper.FSharp/test/data/features/daemon/identifierHighlighting/Record 01.fs.gold

@@ -0,0 +1,6 @@
+type |Record|(0) = { |A|(1): |int|(2) }
+
+---------------------------------------------------------
+(0): ReSharper F# Record Identifier: 
+(1): ReSharper F# Field Identifier: 
+(2): ReSharper F# Struct Identifier: 

ReSharper.FSharp/test/data/features/daemon/identifierHighlighting/Record 02 - Struct.fs

@@ -0,0 +1 @@
+type [<Struct>] Record = { A: int }

ReSharper.FSharp/test/data/features/daemon/identifierHighlighting/Record 02 - Struct.fs.gold

@@ -0,0 +1,7 @@
+type [<|Struct|(0)>] |Record|(1) = { |A|(2): |int|(3) }
+
+---------------------------------------------------------
+(0): ReSharper F# Class Identifier: 
+(1): ReSharper F# Struct Record Identifier: 
+(2): ReSharper F# Field Identifier: 
+(3): ReSharper F# Struct Identifier: 

ReSharper.FSharp/test/src/FSharp.Intentions.Tests/src/Daemon/IdentifierHighlightingTest.fs

@@ -77,3 +77,6 @@ type IdentifierHighlightingTest() =
     [<Test>] member x.``Method - Application 01``() = x.DoNamedTest()
     [<Test>] member x.``Method - Parameters - Optional 01``() = x.DoNamedTest()
     [<Test>] member x.``Method - Parameters - Optional 02 - Private``() = x.DoNamedTest()
+
+    [<Test>] member x.``Record 01``() = x.DoNamedTest()
+    [<Test>] member x.``Record 02 - Struct``() = x.DoNamedTest()