diff options
| author | Ben Sima <ben@bensima.com> | 2025-12-01 03:34:03 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bensima.com> | 2025-12-01 03:34:03 -0500 |
| commit | cf6fe60892144d4c9c4c3a01a192e2eaf4443a5c (patch) | |
| tree | cf12c5ddb56ac1d8bdd721b801a1fcedcb7056d1 /Omni/Task | |
| parent | 05b7ce12bf08561c42ef8ecbe65c123ea2526770 (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.hs | 3 |
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 |
