X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=afp%2Fa4%2Fskeleton4.icl;h=6b96cd5e5d5cb7b0dd1008722847e585b7e07172;hb=d567d59672fcdfc1b88bd05d657eb170c8d7b9c5;hp=8e4d8c624b7a26711d4e427e2fdf56b146ae785c;hpb=fe990e60c8a3ddf16f39295c854c295dab5e4d18;p=clean-tests.git

diff --git a/afp/a4/skeleton4.icl b/afp/a4/skeleton4.icl
index 8e4d8c6..6b96cd5 100644
--- a/afp/a4/skeleton4.icl
+++ b/afp/a4/skeleton4.icl
@@ -104,7 +104,6 @@ changeName s
 changeNameEdcomb :: Student -> Task Student
 changeNameEdcomb s
 	=   updateInformation "New name" [UpdateUsing id (\_ v->v) nameEditor] s
-	>>= viewInformation "done" []
 where
 	nameEditor :: Editor Student
 	nameEditor = bijectEditorValue