repositories
/
phd-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
updates
[phd-thesis.git]
/
intro
/
lst
/
sharedlist.icl
diff --git
a/intro/lst/sharedlist.icl
b/intro/lst/sharedlist.icl
index
8b0e35c
..
395cbeb
100644
(file)
--- a/
intro/lst/sharedlist.icl
+++ b/
intro/lst/sharedlist.icl
@@
-15,9
+15,9
@@
toDoTask = upToDos/*\label{lst:todo_update}*/
upToDos :: Task [ToDo]
upToDos = updateSharedInformation [] todos <<@ Title "My todo-list"/*\label{lst:todo_ui}\label{lst:todo_editor}*/
upToDos :: Task [ToDo]
upToDos = updateSharedInformation [] todos <<@ Title "My todo-list"/*\label{lst:todo_ui}\label{lst:todo_editor}*/
- >>* [ OnAction (Action "Sort") (hasValue \_->upd sort todos >-| upToDos)/*\label{lst:todo_
ui}\label{lst:todo_
contfro}*/
+ >>* [ OnAction (Action "Sort") (hasValue \_->upd sort todos >-| upToDos)/*\label{lst:todo_contfro}*/
, OnAction (Action "Clear") (always (set [] todos >-| upToDos))
, OnAction (Action "Clear") (always (set [] todos >-| upToDos))
- , OnAction (Action "Quit") (always (get todos))/*\label{lst:todo_
ui}\label{lst:todo_
contto}*/
+ , OnAction (Action "Quit") (always (get todos))/*\label{lst:todo_contto}*/
]
where sort list = sortBy (\x y->x.ToDo.date < y.ToDo.date) list
]
where sort list = sortBy (\x y->x.ToDo.date < y.ToDo.date) list