commit cf6fe60892144d4c9c4c3a01a192e2eaf4443a5c
Author: Ben Sima <ben@bensima.com>
Date: Mon Dec 1 03:34:03 2025
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
diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs
index 699e4f3a..6a6d1b87 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