···99 jj_no_log ~snapshot:false ~color:false [ "diff"; "-r"; rev; "--summary" ]
1010 |> String.split_on_char '\n'
1111 |> List.filter_map (fun x ->
1212- if x |> String.trim <> ""
1313- then (
1414- match String.split_on_char ' ' x with
1515- | [ a; b ] ->
1616- Some (a, b)
1717- | _ ->
1818- failwith
1919- "Getting files should always return a list of file names with a modifier at \
2020- the start ")
2121- else None)
1212+ if x |> String.trim <> "" then Base.String.lsplit2 ~on:' ' x else None)
2213;;
23142415let check_startup () =