From cf6fe60892144d4c9c4c3a01a192e2eaf4443a5c Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Mon, 1 Dec 2025 03:34:03 -0500 Subject: Show complexity in task detail view MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 --- Omni/Task/Core.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Omni/Task') 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 -- cgit v1.2.3