Commit 62672d27 authored by Bas Lijnse's avatar Bas Lijnse

Removed some leftover uses of focusTask

parent ead5eecb
Pipeline #28492 passed with stage
in 5 minutes and 13 seconds
......@@ -13,10 +13,8 @@ addOnceToWorkspace :: String (Task a) Workspace -> Task () | iTask a
addOnceToWorkspace identity task workspace
= get (taskListMeta workspace)
>>- \items -> case find identity items of
Nothing = appendTask (NamedEmbedded identity) (removeWhenStable task) workspace
>>- \taskId ->
focusTask taskId workspace @! ()
(Just taskId) = focusTask taskId workspace @! ()
Nothing = appendTask (NamedEmbedded identity) (removeWhenStable task) workspace @! ()
_ = return ()
where
find identity [] = Nothing
find identity [p=:{TaskListItem|taskId,attributes}:ps]
......
......@@ -13,10 +13,8 @@ addOnceToWorkspace :: String (Task a) Workspace -> Task () | iTask a
addOnceToWorkspace identity task workspace
= get (taskListMeta workspace)
>>- \items -> case find identity items of
Nothing = appendTask (NamedEmbedded identity) (removeWhenStable task) workspace
>>- \taskId ->
focusTask taskId workspace @! ()
(Just taskId) = focusTask taskId workspace @! ()
Nothing = appendTask (NamedEmbedded identity) (removeWhenStable task) workspace @! ()
_ = return ()
find identity [] = Nothing
find identity [p=:{TaskListItem|taskId,attributes}:ps]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment