diff options
| author | G.raud <graud@gmx.com> | 2018-02-03 11:24:53 +0100 |
|---|---|---|
| committer | G.raud <graud@gmx.com> | 2018-02-03 12:23:32 +0100 |
| commit | 31d35d8ff2d66cdf628e2829531eb42ee0afdd8d (patch) | |
| tree | cad3ccba7863f6eb0cdd513c4aed3f4a45a5c3dd | |
| parent | 1cf2f0d3a209b40ce030dad117ab083db85843dd (diff) | |
| download | unison-31d35d8ff2d66cdf628e2829531eb42ee0afdd8d.zip unison-31d35d8ff2d66cdf628e2829531eb42ee0afdd8d.tar.gz unison-31d35d8ff2d66cdf628e2829531eb42ee0afdd8d.tar.bz2 | |
Uitext: fix for actions "details" and "diff" (do not go next and print newline)
"details" needs a fresh newline to display info and "diff" may print an
error message.
| -rw-r--r-- | src/uitext.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/uitext.ml b/src/uitext.ml index 5f615b3..7ea3d6e 100644 --- a/src/uitext.ml +++ b/src/uitext.ml @@ -390,11 +390,12 @@ let interact prilist rilist = (["d"], ("show differences (curr or match)"), (fun () -> - actOnMatching showdiffs)); + actOnMatching ~change:false showdiffs)); (["x"], ("show details (curr or match)"), (fun () -> - actOnMatching (fun ri -> displayDetails ri; true))); + actOnMatching ~change:false + (fun ri -> displayDetails ri; true))); (["L"], ("list all (or matching) following changes tersely"), (fun () -> newLine(); |