repositories / clean-tests.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
a10
[clean-tests.git] / afp / a4 / skeleton4.icl
diff --git a/afp/a4/skeleton4.icl b/afp/a4/skeleton4.icl
index 8e4d8c6..6b96cd5 100644 (file)
--- a/afp/a4/skeleton4.icl
+++ b/afp/a4/skeleton4.icl
@@ -104,7 +104,6 @@ changeName s
 changeNameEdcomb :: Student -> Task Student\r
 changeNameEdcomb s\r
        =   updateInformation "New name" [UpdateUsing id (\_ v->v) nameEditor] s\r
-       >>= viewInformation "done" []\r
 where\r
        nameEditor :: Editor Student\r
        nameEditor = bijectEditorValue\r