Skip to content

Commit e4aa276

Browse files
committed
No more Config.uncurried
1 parent 0e552c4 commit e4aa276

File tree

2 files changed

+3
-9
lines changed

2 files changed

+3
-9
lines changed

analysis/src/Cmt.ml

Lines changed: 1 addition & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -50,10 +50,4 @@ let fullsFromModule ~package ~moduleName =
5050

5151
let loadFullCmtFromPath ~path =
5252
let uri = Uri.fromPath path in
53-
let full = fullFromUri ~uri in
54-
match full with
55-
| None -> None
56-
| Some full ->
57-
(* Turn on uncurried for the outcome printer *)
58-
if full.package.uncurried then Config.uncurried := Uncurried;
59-
Some full
53+
fullFromUri ~uri

analysis/src/CompletionBackEnd.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1741,11 +1741,11 @@ let rec completeTypedValue ?(typeArgContext : typeArgContext option) ~rawOpens
17411741
~env;
17421742
]
17431743
else []
1744-
| Tfunction {env; typ; args; uncurried; returnType}
1744+
| Tfunction {env; typ; args; returnType}
17451745
when prefix = "" && mode = Expression ->
17461746
if Debug.verbose () then
17471747
print_endline "[complete_typed_value]--> Tfunction #1";
1748-
let shouldPrintAsUncurried = uncurried && !Config.uncurried <> Uncurried in
1748+
let shouldPrintAsUncurried = false in
17491749
let mkFnArgs ~asSnippet =
17501750
match args with
17511751
| [(Nolabel, argTyp)] when TypeUtils.typeIsUnit argTyp ->

0 commit comments

Comments
 (0)