Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 6 additions & 4 deletions lib/runner_fiber_impl.ml
Original file line number Diff line number Diff line change
Expand Up @@ -664,15 +664,16 @@ struct
~base_ref:(Branch.to_string base_branch)
()
with
| None ->
| Worktree_setup.Missing ->
Runtime.update_orchestrator runtime
(fun orch ->
Orchestrator.apply_session_result
orch patch_id
Orchestrator
.Session_worktree_missing);
`Failed
| Some _wt_path ->
| Worktree_setup.Refused -> `Failed
| Worktree_setup.Path _wt_path ->
(* Capture the initial anchor for this
Start: resolve origin/<base_branch>'s
current tip so the first rebase has
Expand Down Expand Up @@ -1204,8 +1205,9 @@ struct
in
let wt_path =
match wt_path_opt with
| Some p -> p
| None ->
| Worktree_setup.Path p -> p
| Worktree_setup.Missing
| Worktree_setup.Refused ->
Worktree.worktree_dir ~project_name
~patch_id
in
Expand Down
5 changes: 3 additions & 2 deletions lib/session_driver.ml
Original file line number Diff line number Diff line change
Expand Up @@ -167,12 +167,13 @@ module Make (W : Worktree.S) (Env : ENV) = struct
| `Fresh -> (None, true)
in
match WS.ensure_worktree ~patch_id ~agent () with
| None ->
| Worktree_setup.Missing ->
Runtime.update_orchestrator runtime (fun orch ->
Orchestrator.apply_session_result orch patch_id
Orchestrator.Session_worktree_missing);
(`Failed, [])
| Some worktree_path ->
| Worktree_setup.Refused -> (`Failed, [])
| Worktree_setup.Path worktree_path ->
let cwd = Eio.Path.(fs / worktree_path) in
(* Read once at session start so the per-event callback below can
persist the session id to the crash-recovery sidecar without
Expand Down
Loading
Loading