Skip to content

Commit 2edc185

Browse files
committed
Misc: fmt
1 parent 6192e90 commit 2edc185

6 files changed

Lines changed: 334 additions & 348 deletions

File tree

lib/Cmts.ml

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -67,7 +67,8 @@ type t =
6767
; layout_cache: Layout_cache.t
6868
; original: Cmt.t list
6969
(** All dedup'd comments, kept around so they can be retrieved
70-
after the maps above have been consumed by formatting. *) }
70+
after the maps above have been consumed by formatting. *)
71+
}
7172

7273
let source t = t.source
7374

lib/Cmts.mli

Lines changed: 2 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -36,8 +36,7 @@ val init :
3636
-> source:Source.t
3737
-> ast:'a
3838
-> comments:Cmt.t list
39-
-> traverse:
40-
(Ocamlformat_parser_extended.Ast_mapper.mapper -> 'a -> 'a)
39+
-> traverse:(Ocamlformat_parser_extended.Ast_mapper.mapper -> 'a -> 'a)
4140
-> print_ast:(Format.formatter -> 'a -> unit)
4241
-> t
4342
(** Associate each [comment] with a source location appearing in [ast]. Uses
@@ -63,10 +62,7 @@ val relocate :
6362
[after]. *)
6463

6564
val relocate_wrongfully_attached_cmts :
66-
t
67-
-> Source.t
68-
-> Ocamlformat_parser_extended.Parsetree.expression
69-
-> unit
65+
t -> Source.t -> Ocamlformat_parser_extended.Parsetree.expression -> unit
7066
(** [relocate_wrongfully_attached_cmts] relocates wrongfully attached
7167
comments, e.g. comments that should be attached to the whole
7268
pattern-matching expressions ([match-with] or [try-with] expressions) but

0 commit comments

Comments
 (0)