File tree Expand file tree Collapse file tree 2 files changed +3
-9
lines changed Expand file tree Collapse file tree 2 files changed +3
-9
lines changed Original file line number Diff line number Diff line change @@ -50,10 +50,4 @@ let fullsFromModule ~package ~moduleName =
50
50
51
51
let loadFullCmtFromPath ~path =
52
52
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
Original file line number Diff line number Diff line change @@ -1741,11 +1741,11 @@ let rec completeTypedValue ?(typeArgContext : typeArgContext option) ~rawOpens
1741
1741
~env ;
1742
1742
]
1743
1743
else []
1744
- | Tfunction {env; typ; args; uncurried; returnType}
1744
+ | Tfunction {env; typ; args; returnType}
1745
1745
when prefix = " " && mode = Expression ->
1746
1746
if Debug. verbose () then
1747
1747
print_endline " [complete_typed_value]--> Tfunction #1" ;
1748
- let shouldPrintAsUncurried = uncurried && ! Config. uncurried <> Uncurried in
1748
+ let shouldPrintAsUncurried = false in
1749
1749
let mkFnArgs ~asSnippet =
1750
1750
match args with
1751
1751
| [(Nolabel , argTyp)] when TypeUtils. typeIsUnit argTyp ->
You can’t perform that action at this time.
0 commit comments