diff options
| -rw-r--r-- | Omni/Task.hs | 2 | ||||
| -rw-r--r-- | Omni/Task/Core.hs | 5 |
2 files changed, 1 insertions, 6 deletions
diff --git a/Omni/Task.hs b/Omni/Task.hs index d5631f7..e1457fb 100644 --- a/Omni/Task.hs +++ b/Omni/Task.hs @@ -434,7 +434,7 @@ unitTests = ready <- getReadyTasks (taskId task2 `notElem` map taskId ready) Test.@?= True - updateTaskStatus tid1 Done + updateTaskStatus tid1 Done [] -- task2 should now be ready because dependency check normalizes IDs ready2 <- getReadyTasks diff --git a/Omni/Task/Core.hs b/Omni/Task/Core.hs index 29aca85..b17c2aa 100644 --- a/Omni/Task/Core.hs +++ b/Omni/Task/Core.hs @@ -105,11 +105,6 @@ normalizeId = T.toLower -- | Find a task by ID (case-insensitive) findTask :: Text -> [Task] -> Maybe Task findTask tid = List.find (\t -> matchesId (taskId t) tid) - where - -- Helper to check if IDs match - -- matchesId is already defined globally but we can use it directly - -- The lambda above is fine. - () = () -- | Normalize task IDs (self, parent, dependencies) to lowercase normalizeTask :: Task -> Task |