M20210712c: fix rollback
This commit is contained in:
parent
10f78877e9
commit
3fe6e83300
1 changed files with 6 additions and 0 deletions
|
@ -137,6 +137,12 @@ let console_to_string console =
|
||||||
|
|
||||||
let console_of_string data =
|
let console_of_string data =
|
||||||
let lines = String.split_on_char '\n' data in
|
let lines = String.split_on_char '\n' data in
|
||||||
|
(* remove last empty line *)
|
||||||
|
let lines =
|
||||||
|
match List.rev lines with
|
||||||
|
| "" :: lines -> List.rev lines
|
||||||
|
| _ -> lines
|
||||||
|
in
|
||||||
let console = List.map (fun line ->
|
let console = List.map (fun line ->
|
||||||
match String.split_on_char ':' line with
|
match String.split_on_char ':' line with
|
||||||
| ts :: tail ->
|
| ts :: tail ->
|
||||||
|
|
Loading…
Reference in a new issue