change or-pattern printing to use spaces instead of cuts
(A p1 | B p2 | C p3) instead of (A p1|B p2|C p3)master
parent
bdcd9baa03
commit
89d6a2094b
|
@ -416,7 +416,7 @@ and pattern_or ctxt f x =
|
||||||
| [] -> assert false
|
| [] -> assert false
|
||||||
| [x] -> pattern1 ctxt f x
|
| [x] -> pattern1 ctxt f x
|
||||||
| orpats ->
|
| orpats ->
|
||||||
pp f "@[<hov0>%a@]" (list ~sep:"@,|" (pattern1 ctxt)) orpats
|
pp f "@[<hov0>%a@]" (list ~sep:"@ | " (pattern1 ctxt)) orpats
|
||||||
|
|
||||||
and pattern1 ctxt (f:Format.formatter) (x:pattern) : unit =
|
and pattern1 ctxt (f:Format.formatter) (x:pattern) : unit =
|
||||||
let rec pattern_list_helper f = function
|
let rec pattern_list_helper f = function
|
||||||
|
|
|
@ -78,7 +78,7 @@
|
||||||
]
|
]
|
||||||
]
|
]
|
||||||
|
|
||||||
let rec fib = function | 0|1 -> 1 | n -> (fib (n - 1)) + (fib (n - 2))
|
let rec fib = function | 0 | 1 -> 1 | n -> (fib (n - 1)) + (fib (n - 2))
|
||||||
[
|
[
|
||||||
structure_item (test_locations.ml[17,534+0]..test_locations.ml[19,572+34])
|
structure_item (test_locations.ml[17,534+0]..test_locations.ml[19,572+34])
|
||||||
Tstr_value Rec
|
Tstr_value Rec
|
||||||
|
|
|
@ -78,7 +78,7 @@
|
||||||
]
|
]
|
||||||
]
|
]
|
||||||
|
|
||||||
let rec fib = function | 0|1 -> 1 | n -> (fib (n - 1)) + (fib (n - 2))
|
let rec fib = function | 0 | 1 -> 1 | n -> (fib (n - 1)) + (fib (n - 2))
|
||||||
[
|
[
|
||||||
structure_item
|
structure_item
|
||||||
Tstr_value Rec
|
Tstr_value Rec
|
||||||
|
|
Loading…
Reference in New Issue