X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;ds=sidebyside;f=intro%2Flst%2Fsharedlist.icl;h=395cbebce583e0cd20a6f9d891e2efa41c0a9c89;hb=f0c32c3d589cb32297a504dc986b951a60676331;hp=8b0e35c0f25ab0167a7a6a307e114fe4e7747bd8;hpb=c590c9a29ba0f88f0a4b19b3be89ed6c52bfd0f9;p=phd-thesis.git

diff --git a/intro/lst/sharedlist.icl b/intro/lst/sharedlist.icl
index 8b0e35c..395cbeb 100644
--- 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