Update Fantomas to version 4.4.0

.config/dotnet-tools.json

@@ -3,7 +3,7 @@
   "isRoot": true,
   "tools": {
     "fantomas-tool": {
-      "version": "4.3.0-alpha-001",
+      "version": "4.4.0",
       "commands": [
         "fantomas"
       ]

.editorconfig

@@ -54,6 +54,7 @@ indent_size = 4
 
 fsharp_max_array_or_list_width = 80
 fsharp_max_dot_get_expression_width = 100
+fsharp_max_if_then_else_short_width = 100
 fsharp_max_infix_operator_expression = 100
 fsharp_max_record_number_of_items = 2
 fsharp_max_value_binding_width = 100

src/QsCompiler/Core/ConstructorExtensions.fs

@@ -169,10 +169,11 @@ type ResolvedSignature with
         }
 
 type QsSpecialization with
-    static member New kind
-                      (source, location)
-                      (parent, attributes, typeArgs, signature, implementation, documentation, comments)
-                      =
+    static member New
+        kind
+        (source, location)
+        (parent, attributes, typeArgs, signature, implementation, documentation, comments)
+        =
         {
             Kind = kind
             Parent = parent
@@ -192,17 +193,11 @@ type QsSpecialization with
     static member NewControlledAdjoint = QsSpecialization.New QsControlledAdjoint
 
 type QsCallable with
-    static member New kind
-                      (source, location)
-                      (name,
-                       attributes,
-                       access,
-                       argTuple,
-                       signature,
-                       specializations: IEnumerable<_>,
-                       documentation,
-                       comments)
-                      =
+    static member New
+        kind
+        (source, location)
+        (name, attributes, access, argTuple, signature, specializations: IEnumerable<_>, documentation, comments)
+        =
         {
             Kind = kind
             FullName = name
@@ -251,7 +246,9 @@ type QsNamespaceElement with
     static member NewOperation loc =
         QsCallable.NewOperation loc >> QsCallable
 
-    static member NewFunction loc = QsCallable.NewFunction loc >> QsCallable
+    static member NewFunction loc =
+        QsCallable.NewFunction loc >> QsCallable
+
     static member NewType loc = QsCustomType.New loc >> QsCustomType
 
 type QsNamespace with

src/QsCompiler/Core/DeclarationHeaders.fs

@@ -49,11 +49,14 @@ module DeclarationHeader =
     type private NullableOffsetConverter() =
         inherit JsonConverter<Offset>()
 
-        override this.ReadJson(reader: JsonReader,
-                               objectType: Type,
-                               existingValue: Offset,
-                               hasExistingValue: bool,
-                               serializer: JsonSerializer) =
+        override this.ReadJson
+            (
+                reader: JsonReader,
+                objectType: Type,
+                existingValue: Offset,
+                hasExistingValue: bool,
+                serializer: JsonSerializer
+            ) =
             if reader.ValueType <> typeof<String> || (string) reader.Value <> "Undefined" then
                 let offset = serializer.Deserialize<Position>(reader)
                 if Object.ReferenceEquals(offset, null) then Offset.Undefined else Offset.Defined offset
@@ -68,11 +71,14 @@ module DeclarationHeader =
     type private NullableRangeConverter() =
         inherit JsonConverter<Range>()
 
-        override this.ReadJson(reader: JsonReader,
-                               objectType: Type,
-                               existingValue: Range,
-                               hasExistingValue: bool,
-                               serializer: JsonSerializer) =
+        override this.ReadJson
+            (
+                reader: JsonReader,
+                objectType: Type,
+                existingValue: Range,
+                hasExistingValue: bool,
+                serializer: JsonSerializer
+            ) =
             if reader.ValueType <> typeof<String> || (string) reader.Value <> "Undefined" then
                 let range = serializer.Deserialize<DataTypes.Range>(reader)
                 if Object.ReferenceEquals(range, null) then Range.Undefined else Range.Defined range
@@ -202,10 +208,7 @@ type TypeDeclarationHeader =
         let header = TypeDeclarationHeader.OfSchema schema
         let attributesAreNullOrDefault = Object.ReferenceEquals(header.Attributes, null) || header.Attributes.IsDefault
 
-        let header =
-            if attributesAreNullOrDefault
-            then { header with Attributes = ImmutableArray.Empty }
-            else header // no reason to raise an error
+        let header = if attributesAreNullOrDefault then { header with Attributes = ImmutableArray.Empty } else header // no reason to raise an error
 
         if not (Object.ReferenceEquals(header.TypeItems, null)) then
             success, header
@@ -336,15 +339,18 @@ type CallableDeclarationHeader =
         let header = CallableDeclarationHeader.OfSchema schema
         let attributesAreNullOrDefault = Object.ReferenceEquals(header.Attributes, null) || header.Attributes.IsDefault
 
-        let header =
-            if attributesAreNullOrDefault
-            then { header with Attributes = ImmutableArray.Empty }
-            else header // no reason to raise an error
+        let header = if attributesAreNullOrDefault then { header with Attributes = ImmutableArray.Empty } else header // no reason to raise an error
 
         let header = { header with ArgumentTuple = header.ArgumentTuple |> setInferredInfo }
 
-        if Object.ReferenceEquals(header.Signature.Information, null)
-           || Object.ReferenceEquals(header.Signature.Information.Characteristics, null) then
+        if
+            Object.ReferenceEquals(header.Signature.Information, null)
+            || Object.ReferenceEquals
+                (
+                    header.Signature.Information.Characteristics,
+                    null
+                )
+        then
             false, { header with Signature = { header.Signature with Information = CallableInformation.Invalid } }
         else
             success, header
@@ -457,10 +463,7 @@ type SpecializationDeclarationHeader =
         let typeArgsAreNull = Object.ReferenceEquals(header.TypeArguments, null)
         let attributesAreNullOrDefault = Object.ReferenceEquals(header.Attributes, null) || header.Attributes.IsDefault
 
-        let header =
-            if attributesAreNullOrDefault
-            then { header with Attributes = ImmutableArray.Empty }
-            else header // no reason to raise an error
+        let header = if attributesAreNullOrDefault then { header with Attributes = ImmutableArray.Empty } else header // no reason to raise an error
 
         if not (infoIsNull || typeArgsAreNull) then
             success, header