diff options
| -rw-r--r-- | Omni/Task/Core.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs index 8badf6b..0a1187f 100644 --- a/Omni/Task/Core.hs +++ b/Omni/Task/Core.hs @@ -810,7 +810,10 @@ getReadyTasks = do /= NeedsHelp && taskId task `notElem` needsInterventionIds - pure <| filter isReady openTasks + readyTasks = filter isReady openTasks + -- Sort by priority (P0 first) then by creation time (oldest first) + sorted = List.sortBy (comparing taskPriority <> comparing taskCreatedAt) readyTasks + pure sorted -- Get dependency tree getDependencyTree :: Text -> IO [Task] |