upiates

[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}*/
-       >>* [ 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 "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