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

diff --git a/intro/lst/sharedlist.icl b/intro/lst/sharedlist.icl
index b29e8be..395cbeb 100644
--- a/intro/lst/sharedlist.icl
+++ b/intro/lst/sharedlist.icl
@@ -17,7 +17,7 @@ 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_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