diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-08-15 14:47:15 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-12-12 13:30:57 +0100 |
| commit | 745eb8d6d9f99b69d11c16e8fb5e133e8e27d0a8 (patch) | |
| tree | 8e1a6a91449a2e8a7b15e6b5c04d3cbc61cdc3b5 /lib/pp.ml | |
| parent | 28fabbb1fbc35044fd257a2cad07fb70778c67fe (diff) | |
Improving spacing in printing disjunctive patterns.
Adding a space before the bar separating disjunctive patterns.
Removing an extra space after the bar for inner disjunctive patterns.
Diffstat (limited to 'lib/pp.ml')
| -rw-r--r-- | lib/pp.ml | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -208,6 +208,7 @@ let string_of_ppcmds c = let pr_comma () = str "," ++ spc () let pr_semicolon () = str ";" ++ spc () let pr_bar () = str "|" ++ spc () +let pr_spcbar () = str " |" ++ spc () let pr_arg pr x = spc () ++ pr x let pr_non_empty_arg pr x = let pp = pr x in if ismt pp then mt () else spc () ++ pr x let pr_opt pr = function None -> mt () | Some x -> pr_arg pr x |