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

Begin UI restructure

Browse source
This commit is contained in:
Joscha 2018-09-27 16:41:43 +00:00
parent 5de27b195b
commit d8e0e1a867
5 changed files with 112 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/TaskMachine/LTask.hs
View file

@ -14,6 +14,7 @@ module TaskMachine.LTask
, toTask
, fromTasks
, toTasks
, modifyLTask
, sortLTasks
, loadLTasks
, saveLTasks
@ -47,6 +48,9 @@ fromTasks = zipWith LTask (map Old [1..])
toTasks :: [LTask] -> [Task]
toTasks = map toTask . sortLTasks
modifyLTask :: (Task -> Task) -> LTask -> LTask
modifyLTask f (LTask pos task) = LTask pos (f task)
sortLTasks :: [LTask] -> [LTask]
sortLTasks = sortBy (compare `on` lPosition)