Skip to content

Commit 6a500d4

Browse files
safesparrowsafesparrow
committed
Apply Fantomas
1 parent 2e2c636 commit 6a500d4

3 files changed

Lines changed: 32 additions & 22 deletions

File tree

‎tests/ParallelTypeCheckingTests/Code/Parallel.fs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -33,7 +33,7 @@ let processInParallel
3333
processedCount)
3434

3535
// let toScheduleString =
36-
// toSchedule |> Array.map _itemToString |> (fun names -> String.Join(", ", names))
36+
// toSchedule |> Array.map _itemToString |> (fun names -> String.Join(", ", names))
3737

3838
// printfn $"Scheduling {toSchedule.Length} items: {toScheduleString}"
3939
toSchedule |> Array.iter bc.Add

‎vsintegration/tests/FSharp.Editor.Tests/Hints/InlineTypeHintTests.fs‎

Lines changed: 14 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -190,26 +190,28 @@ let zip4 (l1: 'a list) (l2: 'b list) (l3: 'c list) (l4: 'd list) =
190190
"""
191191
let x
192192
"""
193+
193194
let document = getFsDocument code
194195

195196
let result = getTypeHints document
196197

197198
Assert.IsEmpty(result)
198199

199200
[<Test>]
200-
let ``Hints are not shown for unsolved types in _for_ expressions in collections`` () =
201+
let ``Hints are not shown for unsolved types in _for_ expressions in collections`` () =
201202
let code =
202203
"""
203204
let _ = [ for x ]
204205
"""
206+
205207
let document = getFsDocument code
206208

207209
let result = getTypeHints document
208210

209211
Assert.IsEmpty(result)
210212

211213
[<Test>]
212-
let ``Hints are not shown for unsolved types in _for_ expressions within computational expressions`` () =
214+
let ``Hints are not shown for unsolved types in _for_ expressions within computational expressions`` () =
213215
let code =
214216
"""
215217
do task {
@@ -218,6 +220,7 @@ do task {
218220
do! Task.Delay 0
219221
}
220222
"""
223+
221224
let document = getFsDocument code
222225

223226
let result = getTypeHints document
@@ -236,12 +239,19 @@ type Number<'T when IAddition<'T>>(value: 'T) =
236239
interface IAddition<Number<'T>> with
237240
static member op_Addition(a, b) = Number(a.Value + b.Value)
238241
"""
242+
239243
let document = getFsDocument code
240244

241245
let expected =
242246
[
243-
{ Content = ": Number<'T>"; Location = (7, 36) }
244-
{ Content = ": Number<'T>"; Location = (7, 39) }
247+
{
248+
Content = ": Number<'T>"
249+
Location = (7, 36)
250+
}
251+
{
252+
Content = ": Number<'T>"
253+
Location = (7, 39)
254+
}
245255
]
246256

247257
let actual = getTypeHints document

‎vsintegration/tests/FSharp.Editor.Tests/QuickInfoProviderTests.fs‎

Lines changed: 17 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -213,93 +213,93 @@ let res8 = abs 5.0<kg>
213213
Some
214214
"(extension) System.Collections.Generic.IEnumerable.GroupBy<'TSource,'TKey>(keySelector: System.Func<'TSource,'TKey>) : System.Collections.Generic.IEnumerable<IGrouping<'TKey,'TSource>>
215215
'TSource is int * string
216-
'TKey is int");
216+
'TKey is int")
217217
("Sort",
218218
Some
219219
"System.Array.Sort<'T>(array: 'T array) : unit
220-
'T is int");
220+
'T is int")
221221
("let test4 x = C().FSharpGenericMethodExplitTypeParams",
222222
Some
223223
"member C.FSharpGenericMethodExplitTypeParams: a: 'T0 * y: 'T0 -> 'T0 * 'T0
224-
'T is 'a list");
224+
'T is 'a list")
225225
("let test5<'U> (x: 'U) = C().FSharpGenericMethodExplitTypeParams",
226226
Some
227227
"member C.FSharpGenericMethodExplitTypeParams: a: 'T0 * y: 'T0 -> 'T0 * 'T0
228-
'T is 'U list");
228+
'T is 'U list")
229229
("let test6 = C().FSharpGenericMethodExplitTypeParams",
230230
Some
231231
"member C.FSharpGenericMethodExplitTypeParams: a: 'T0 * y: 'T0 -> 'T0 * 'T0
232-
'T is int");
232+
'T is int")
233233
("let test7 x = C().FSharpGenericMethodInferredTypeParams",
234234
Some
235235
"member C.FSharpGenericMethodInferredTypeParams: a: 'a1 * y: 'b2 -> 'a1 * 'b2
236236
'a is 'a0 list
237-
'b is 'a0 list");
237+
'b is 'a0 list")
238238
("let test8 = C().FSharpGenericMethodInferredTypeParams",
239239
Some
240240
"member C.FSharpGenericMethodInferredTypeParams: a: 'a0 * y: 'b1 -> 'a0 * 'b1
241241
'a is int
242-
'b is int");
242+
'b is int")
243243
("let test9<'U> (x: 'U) = C().FSharpGenericMethodInferredTypeParams",
244244
Some
245245
"member C.FSharpGenericMethodInferredTypeParams: a: 'a0 * y: 'b1 -> 'a0 * 'b1
246246
'a is 'U list
247-
'b is 'U list");
247+
'b is 'U list")
248248
("let res3 = [1] |>",
249249
Some
250250
"val (|>) : arg: 'T1 -> func: ('T1 -> 'U) -> 'U
251251
Full name: Microsoft.FSharp.Core.Operators.(|>)
252252
'T1 is int list
253-
'U is int list");
253+
'U is int list")
254254
("let res3 = [1] |> List.map id",
255255
Some
256256
"val id: x: 'T -> 'T
257257
Full name: Microsoft.FSharp.Core.Operators.id
258-
'T is int");
258+
'T is int")
259259
("let res4 = (1.0,[1]) ||>",
260260
Some
261261
"val (||>) : arg1: 'T1 * arg2: 'T2 -> func: ('T1 -> 'T2 -> 'U) -> 'U
262262
Full name: Microsoft.FSharp.Core.Operators.(||>)
263263
'T1 is float
264264
'T2 is int list
265-
'U is float");
265+
'U is float")
266266
("let res4 = (1.0,[1]) ||> List.fold",
267267
Some
268268
"val fold: folder: ('State -> 'T -> 'State) -> state: 'State -> list: 'T list -> 'State
269269
Full name: Microsoft.FSharp.Collections.List.fold
270270
'T is int
271-
'State is float");
271+
'State is float")
272272
("let res4 = (1.0,[1]) ||> List.fold (fun s x -> string s +",
273273
Some
274274
"val (+) : x: 'T1 -> y: 'T2 -> 'T3 (requires member (+))
275275
Full name: Microsoft.FSharp.Core.Operators.(+)
276276
'T1 is string
277277
'T2 is string
278-
'T3 is float");
278+
'T3 is float")
279279
("let res5 = 1 +",
280280
Some
281281
"val (+) : x: 'T1 -> y: 'T2 -> 'T3 (requires member (+))
282282
Full name: Microsoft.FSharp.Core.Operators.(+)
283283
'T1 is int
284284
'T2 is int
285-
'T3 is int");
285+
'T3 is int")
286286
("let res6 = System.DateTime.Now +",
287287
Some
288288
"val (+) : x: 'T1 -> y: 'T2 -> 'T3 (requires member (+))
289289
Full name: Microsoft.FSharp.Core.Operators.(+)
290290
'T1 is System.DateTime
291291
'T2 is System.TimeSpan
292-
'T3 is System.DateTime");
292+
'T3 is System.DateTime")
293293
("let res7 = sin",
294294
Some
295295
"val sin: value: 'T -> 'T (requires member Sin)
296296
Full name: Microsoft.FSharp.Core.Operators.sin
297-
'T is float");
297+
'T is float")
298298
("let res8 = abs",
299299
Some
300300
"val abs: value: 'T -> 'T (requires member Abs)
301301
Full name: Microsoft.FSharp.Core.Operators.abs
302-
'T is int");
302+
'T is int")
303303
]
304304

305305
executeQuickInfoTest fileContents testCases

0 commit comments

Comments
 (0)