Update FCS to 'Correct range of SynInterfaceImpl' (#2919)

* Update FCS to 'Correct range of SynInterfaceImpl'

* Remove unused files

* Restore FSStrings.resx

* Update test input

* Add changelog entry

Author: nojaf

CHANGELOG.md

@@ -1,5 +1,10 @@
 # Changelog
 
+## 6.1.1 - 2023-06-29
+
+### Changed
+* Update FCS to 'Remove unused open in SyntaxTree.fs', commit 9c8b4192966e6554adc5dcc8973f2a23c8fa2722
+
 ## 6.1.0 - 2023-06-28
 
 ### Fixed

Directory.Build.props

@@ -39,7 +39,7 @@ Some common use cases include:
 
     <!-- Versions -->
     <PropertyGroup>
-        <FCSCommitHash>5b74995780a0e9d24a5db025e68b31e6d910f71f</FCSCommitHash>
+        <FCSCommitHash>9c8b4192966e6554adc5dcc8973f2a23c8fa2722</FCSCommitHash>
         <StreamJsonRpcVersion>2.8.28</StreamJsonRpcVersion>
         <FSharpCoreVersion>6.0.1</FSharpCoreVersion>
     </PropertyGroup>

build.fsx

@@ -233,7 +233,6 @@ pipeline "Init" {
     stage "Download FCS files" {
         run (fun _ ->
             [| "src/Compiler/FSComp.txt"
-               "src/Compiler/Interactive/FSIstrings.txt"
                "src/Compiler/FSStrings.resx"
                "src/Compiler/Utilities/Activity.fsi"
                "src/Compiler/Utilities/Activity.fs"
@@ -261,24 +260,16 @@ pipeline "Init" {
                "src/Compiler/Utilities/XmlAdapters.fs"
                "src/Compiler/Utilities/InternalCollections.fsi"
                "src/Compiler/Utilities/InternalCollections.fs"
-               "src/Compiler/Utilities/QueueList.fsi"
-               "src/Compiler/Utilities/QueueList.fs"
                "src/Compiler/Utilities/lib.fsi"
                "src/Compiler/Utilities/lib.fs"
-               "src/Compiler/Utilities/rational.fsi"
-               "src/Compiler/Utilities/rational.fs"
                "src/Compiler/Utilities/PathMap.fsi"
                "src/Compiler/Utilities/PathMap.fs"
-               "src/Compiler/Utilities/RidHelpers.fs"
                "src/Compiler/Utilities/range.fsi"
                "src/Compiler/Utilities/range.fs"
-               "src/Compiler/Facilities/UtilsStrings.txt"
                "src/Compiler/Facilities/LanguageFeatures.fsi"
                "src/Compiler/Facilities/LanguageFeatures.fs"
                "src/Compiler/Facilities/DiagnosticOptions.fsi"
                "src/Compiler/Facilities/DiagnosticOptions.fs"
-               "src/Compiler/Facilities/TextLayoutRender.fsi"
-               "src/Compiler/Facilities/TextLayoutRender.fs"
                "src/Compiler/Facilities/DiagnosticsLogger.fsi"
                "src/Compiler/Facilities/DiagnosticsLogger.fs"
                "src/Compiler/Facilities/prim-lexing.fsi"
@@ -289,8 +280,6 @@ pipeline "Init" {
                "src/Compiler/AbstractIL/ilpars.fsy"
                "src/Compiler/AbstractIL/il.fsi"
                "src/Compiler/AbstractIL/il.fs"
-               "src/Compiler/AbstractIL/ilx.fsi"
-               "src/Compiler/AbstractIL/ilx.fs"
                "src/Compiler/AbstractIL/ilascii.fsi"
                "src/Compiler/AbstractIL/ilascii.fs"
                "src/Compiler/SyntaxTree/PrettyNaming.fsi"

src/Fantomas.Core.Tests/AlignedMultilineBracketStyleTests.fs

@@ -1445,9 +1445,9 @@ let z = {|
 
 let a = {| // test1
     foo with
-    Level = 7
-    Square = 9
-    // test2
+        Level = 7
+        Square = 9
+        // test2
 |}
 """
         config

src/Fantomas.Core.Tests/CastTests.fs

@@ -143,9 +143,9 @@ module Foo =
     let foo =
         { new IDisposable with
             member __.Dispose () =
-            do ()
+                do ()
 
-            upcast ()
+                upcast ()
         }
 """
         { config with
@@ -179,9 +179,9 @@ module Foo =
     let foo =
         { new IDisposable with
             member __.Dispose () =
-            do ()
+                do ()
 
-            downcast ()
+                downcast ()
         }
 """
         { config with

src/Fantomas.Core.Tests/CommentTests.fs

@@ -589,17 +589,18 @@ printfn "hello world"
 let ``preserve block comment after record, 516`` () =
     formatSourceString
         false
-        """module TriviaModule =
+        """
+module TriviaModule =
 
-let env = "DEBUG"
+    let env = "DEBUG"
 
-type Config = {
-    Name: string
-    Level: int
-}
+    type Config = {
+        Name: string
+        Level: int
+    }
 
-let meh = { // this comment right
-    Name = "FOO"; Level = 78 }
+    let meh = { // this comment right
+                                            Name = "FOO"; Level = 78 }
 
 (* ending with block comment *)
 """

src/Fantomas.Core.Tests/CrampedMultilineBracketStyleTests.fs

@@ -2247,9 +2247,9 @@ let z = {|
 
 let a = {| // test1
     foo with
-    Level = 7
-    Square = 9
-    // test2
+        Level = 7
+        Square = 9
+        // test2
 |}
 """
         config
@@ -2355,12 +2355,12 @@ let ``multiline field body expression where indent_size = 2, update record`` ()
 let handlerFormattedRangeDoc (lines: NamedText, formatted: string, range: FormatSelectionRange) =
     let range =
       { x with 
-        Start =
-          { Line = range.StartLine - 1
-            Character = range.StartColumn }
-        End =
-          { Line = range.EndLine - 1
-            Character = range.EndColumn } }
+            Start =
+              { Line = range.StartLine - 1
+                Character = range.StartColumn }
+            End =
+              { Line = range.EndLine - 1
+                Character = range.EndColumn } }
 
     [| { Range = range; NewText = formatted } |]
 """

src/Fantomas.Core.Tests/OperatorTests.fs

@@ -1355,7 +1355,7 @@ let ``add space around binary operators in units of measure, 2207`` () =
 type Test =
     { WorkHoursPerWeek: uint<hr*(staff weeks)> }
     static member create =
-    { WorkHoursPerWeek = 40u<hr*(staff weeks)> }
+     { WorkHoursPerWeek = 40u<hr*(staff weeks)> }
 """
         { config with
             NewlineBetweenTypeDefinitionAndMembers = false }

src/Fantomas.Core.Tests/Stroustrup/ExperimentalElmishTests.fs

@@ -163,11 +163,12 @@ let view =
 let ``div with multiple attributes and children`` () =
     formatSourceString
         false
-        """let d =
-div [ ClassName "container"; OnClick (fun _ -> printfn "meh") ] [
-    span [] [str "foo"]
-    code [] [str "bar"]
-]
+        """
+let d =
+    div [ ClassName "container"; OnClick (fun _ -> printfn "meh") ] [
+        span [] [str "foo"]
+        code [] [str "bar"]
+    ]
 """
         { config with MaxArrayOrListWidth = 40 }
     |> prepend newline

src/Fantomas.Core.Tests/TypeDeclarationTests.fs

@@ -1605,10 +1605,11 @@ type SomeType() =
 let ``split multiple parameters over multiple lines`` () =
     formatSourceString
         false
-        """type SomeType =
+        """
+type SomeType =
     static member SomeMember (looooooooooooooooooooooooooooooooooooooooooooooooooooooooooooong1: string) (looooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooong2: string) : string =
-    printfn "a"
-    "b"
+     printfn "a"
+     "b"
 """
         config
     |> prepend newline
@@ -1628,10 +1629,11 @@ type SomeType =
 let ``split multiple parameters over multiple lines and have correct indentation afterwards`` () =
     formatSourceString
         false
-        """type SomeType =
+        """
+type SomeType =
     static member SomeMember (looooooooooooooooooooooooooooooooooooooooooooooooooooooooooooong1: string) (looooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooong2: string) : string =
-    printfn "a"
-    "b"
+     printfn "a"
+     "b"
 
     static member SomeOtherMember () = printfn "c"
 """
@@ -1656,10 +1658,11 @@ type SomeType =
 let ``member with one long parameter and return type, 850`` () =
     formatSourceString
         false
-        """type SomeType =
+        """
+type SomeType =
     static member SomeMember loooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooong1 : string =
-    printfn "a"
-    "b"
+     printfn "a"
+     "b"
 """
         config
     |> prepend newline
@@ -1678,10 +1681,11 @@ type SomeType =
 let ``member with one long parameter and no return type, 850`` () =
     formatSourceString
         false
-        """type SomeType =
+        """
+type SomeType =
     static member SomeMember loooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooong1 =
-    printfn "a"
-    "b"
+     printfn "a"
+     "b"
 """
         config
     |> prepend newline
@@ -1700,10 +1704,11 @@ type SomeType =
 let ``multiple members with one long parameter`` () =
     formatSourceString
         false
-        """type SomeType =
+        """
+type SomeType =
     static member SomeMember loooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooong1 =
-    printfn "a"
-    "b"
+     printfn "a"
+     "b"
 
     static member Serialize (loooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooong2: SomeType) = Encode.string v.Meh
     static member Deserialize (loooooooooooooooooooooooooooooooooooooooooooooooooooooonnnnnnnnnnnnnnnnnnnnngggggggggggJsonVaaaaalueeeeeeeeeeeeeeee) : SomeType = Decode.SomeType loooooooooooooooooooooooooooooooooooooooooooooooooooooonnnnnnnnnnnnnnnnnnnnngggggggggggJsonVaaaaalueeeeeeeeeeeeeeee