1 files changed, 37 insertions, 0 deletions
diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs
index 722e696..d64d607 100644
--- a/Omni/Task/Core.hs
+++ b/Omni/Task/Core.hs
@@ -1133,6 +1133,43 @@ getAllDescendants allTasks parentId =
   let children = filter (maybe False (`matchesId` parentId) <. taskParent) allTasks
    in children ++ concatMap (getAllDescendants allTasks <. taskId) children
 
+computeTaskStatsFromList :: [Task] -> TaskStats
+computeTaskStatsFromList tasks =
+  let total = length tasks
+      draft = length [t | t <- tasks, taskStatus t == Draft]
+      open = length [t | t <- tasks, taskStatus t == Open]
+      inProg = length [t | t <- tasks, taskStatus t == InProgress]
+      review = length [t | t <- tasks, taskStatus t == Review]
+      approved = length [t | t <- tasks, taskStatus t == Approved]
+      done = length [t | t <- tasks, taskStatus t == Done]
+      epics = length [t | t <- tasks, taskType t == Epic]
+      readyCount = open + inProg
+      blockedCount = 0
+      byPriority =
+        [ (P0, length [t | t <- tasks, taskPriority t == P0]),
+          (P1, length [t | t <- tasks, taskPriority t == P1]),
+          (P2, length [t | t <- tasks, taskPriority t == P2]),
+          (P3, length [t | t <- tasks, taskPriority t == P3]),
+          (P4, length [t | t <- tasks, taskPriority t == P4])
+        ]
+      namespaces = mapMaybe taskNamespace tasks
+      uniqueNs = List.nub namespaces
+      byNamespace = [(ns, length [t | t <- tasks, taskNamespace t == Just ns]) | ns <- uniqueNs]
+   in TaskStats
+        { totalTasks = total,
+          draftTasks = draft,
+          openTasks = open,
+          inProgressTasks = inProg,
+          reviewTasks = review,
+          approvedTasks = approved,
+          doneTasks = done,
+          totalEpics = epics,
+          readyTasks = readyCount,
+          blockedTasks = blockedCount,
+          tasksByPriority = byPriority,
+          tasksByNamespace = byNamespace
+        }
+
 showTaskStats :: Maybe Text -> IO ()
 showTaskStats maybeEpicId = do
   stats <- getTaskStats maybeEpicId