changeNameEdcomb :: Student -> Task Student\r
changeNameEdcomb s\r
= updateInformation "New name" [UpdateUsing id (\_ v->v) nameEditor] s\r
changeNameEdcomb :: Student -> Task Student\r
changeNameEdcomb s\r
= updateInformation "New name" [UpdateUsing id (\_ v->v) nameEditor] s\r