summaryrefslogtreecommitdiff
path: root/Omni/Task
diff options
context:
space:
mode:
authorBen Sima <ben@bensima.com>2025-12-01 03:34:03 -0500
committerBen Sima <ben@bensima.com>2025-12-01 03:34:03 -0500
commitcf6fe60892144d4c9c4c3a01a192e2eaf4443a5c (patch)
treecf12c5ddb56ac1d8bdd721b801a1fcedcb7056d1 /Omni/Task
parent05b7ce12bf08561c42ef8ecbe65c123ea2526770 (diff)
Show complexity in task detail view
Excellent! The implementation is complete and all tests pass. Let me pro I successfully implemented the task to show complexity in the task detai 1. **File Modified**: `Omni/Task/Core.hs` 2. **Function**: `showTaskDetailed` 3. **Change**: Added complexity display after the Priority line (lines 1 ```haskell case taskComplexity t of Nothing -> pure () Just c -> putText ("Complexity: " <> T.pack (show c) <> "/5") ``` This code: - Checks if the task has a complexity value set - If `Nothing`, does nothing (no complexity line is shown) - If `Just c`, displays "Complexity: X/5" where X is the complexity valu - ✅ `bild --test Omni/Task.hs` passed successfully - ✅ `lint Omni/Task/Core.hs` passed with no hlint warnings or errors - ✅ All existing tests continue to pass The implementation matches the exact specification provided in the task Task-Id: t-196
Diffstat (limited to 'Omni/Task')
-rw-r--r--Omni/Task/Core.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs
index 699e4f3..6a6d1b8 100644
--- a/Omni/Task/Core.hs
+++ b/Omni/Task/Core.hs
@@ -1019,6 +1019,9 @@ showTaskDetailed t = do
putText <| "Type: " <> T.pack (show (taskType t))
putText <| "Status: " <> T.pack (show (taskStatus t))
putText <| "Priority: " <> T.pack (show (taskPriority t)) <> priorityDesc
+ case taskComplexity t of
+ Nothing -> pure ()
+ Just c -> putText ("Complexity: " <> T.pack (show c) <> "/5")
when (taskType t == Epic) <| do
let children = filter (maybe False (`matchesId` taskId t) <. taskParent) tasks