Garmelon/task-machine
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prevent cursor from moving when deleting tasks

Browse source
This commit is contained in:
Joscha 2018-10-23 14:13:05 +00:00
parent 038721177d
commit 05f4343d40
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/TaskMachine/UI/TaskList.hs
View file

@ -83,9 +83,9 @@ replaceTask task (TaskList list) = TaskList $ B.listModify replace list
deleteTask :: TaskList n -> TaskList n deleteTask :: TaskList n -> TaskList n
deleteTask tl@(TaskList list) = deleteTask tl@(TaskList list) =
case listSize list of case B.listSelected list of
0 -> tl Nothing -> tl
n -> TaskList $ B.listRemove (n-1) list Just index -> TaskList $ B.listMoveBy 1 $ B.listRemove index list
{- helper functions -} {- helper functions -}