From 7d3c3d1e660b901ef0d4c36b2d352aeb74f96553 Mon Sep 17 00:00:00 2001 From: Omni Worker Date: Fri, 21 Nov 2025 18:09:01 -0500 Subject: style: fix linting Amp-Thread-ID: https://ampcode.com/threads/T-79499d9e-f4f4-40de-893c-524c32a45483 Co-authored-by: Amp --- Omni/Agent/Worker.hs | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) (limited to 'Omni/Agent') diff --git a/Omni/Agent/Worker.hs b/Omni/Agent/Worker.hs index 23dd759..59d576f 100644 --- a/Omni/Agent/Worker.hs +++ b/Omni/Agent/Worker.hs @@ -74,7 +74,7 @@ processTask worker task = do Log.info ["worker", "basing", taskBranch, "on", baseBranch] Git.checkout repo baseBranch else Log.info ["worker", "basing", taskBranch, "on live"] - + Git.createBranch repo taskBranch -- Run Amp @@ -173,17 +173,18 @@ findBaseBranch repo task = do let deps = TaskCore.taskDependencies task -- Filter for blocking dependencies let blockingDeps = filter (\d -> TaskCore.depType d == TaskCore.Blocks || TaskCore.depType d == TaskCore.ParentChild) deps - + -- Check if any have unmerged branches - candidates <- flip filterM blockingDeps <| \dep -> do - let branch = "task/" <> TaskCore.depId dep - exists <- Git.branchExists repo branch - if exists - then do - merged <- Git.isMerged repo branch "live" - pure (not merged) - else pure False - + candidates <- + flip filterM blockingDeps <| \dep -> do + let branch = "task/" <> TaskCore.depId dep + exists <- Git.branchExists repo branch + if exists + then do + merged <- Git.isMerged repo branch "live" + pure (not merged) + else pure False + case candidates of (candidate : _) -> pure ("task/" <> TaskCore.depId candidate) [] -> pure "live" -- cgit v1.2.3