Allow setting line width when printing types. Will use to nudge the printer towards printing function types for code lenses on one line

Author: zth

analysis/src/PrintType.ml

@@ -1,6 +1,6 @@
-let printExpr typ =
+let printExpr ?(lineWidth = 60) typ =
   Printtyp.reset_names ();
-  Res_doc.toString ~width:60
+  Res_doc.toString ~width:lineWidth
     (Res_outcome_printer.printOutTypeDoc (Printtyp.tree_of_typexp false typ))
 
 let printDecl ~recStatus name decl =

analysis/src/Shared.ml

@@ -49,12 +49,12 @@ let declToString ?(recStatus = Types.Trec_not) name t =
 let cacheTypeToString = ref false
 let typeTbl = Hashtbl.create 1
 
-let typeToString (t : Types.type_expr) =
+let typeToString ?(lineWidth = 60) (t : Types.type_expr) =
   match
     if !cacheTypeToString then Hashtbl.find_opt typeTbl (t.id, t) else None
   with
   | None ->
-    let s = PrintType.printExpr t in
+    let s = PrintType.printExpr ~lineWidth t in
     Hashtbl.replace typeTbl (t.id, t) s;
     s
   | Some s -> s