patrick.sirref.org / merry
Shells in OCaml
3
fork

Configure Feed

Select the types of activity you want to include in your feed.

Unix.chdir

Patrick Ferris 7379e014 1d9018a5

+3 -1
+3 -1
src/lib/eval.ml
··· 1088 1088 match path with 1089 1089 | Some p -> 1090 1090 let fp = Fpath.append cwd (Fpath.v p) in 1091 - if Eio.Path.is_directory (ctx.fs / Fpath.to_string fp) then 1091 + if Eio.Path.is_directory (ctx.fs / Fpath.to_string fp) then begin 1092 + Unix.chdir (Fpath.to_string fp); 1092 1093 Exit.zero @@ S.set_cwd ctx.state fp 1094 + end 1093 1095 else 1094 1096 Exit.nonzero_msg ~exit_code:1 ctx.state 1095 1097 "cd: not a directory: %a" Fpath.pp fp