diff options
| author | Camil Staps | 2017-10-16 11:39:07 +0200 |
|---|---|---|
| committer | Camil Staps | 2017-10-16 11:39:07 +0200 |
| commit | 73d9daeb5524d37e962651653cd8b84d1d8b0d19 (patch) | |
| tree | 30ceffe5c21fe70d7dfdaa3534563b9aafa0accd /assignment-5/skeleton5.icl | |
| parent | Better Start rule skeleton5 (diff) | |
Improve skeleton5/task8
Diffstat (limited to 'assignment-5/skeleton5.icl')
| -rw-r--r-- | assignment-5/skeleton5.icl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/assignment-5/skeleton5.icl b/assignment-5/skeleton5.icl index 3f3ba2f..1a01909 100644 --- a/assignment-5/skeleton5.icl +++ b/assignment-5/skeleton5.icl @@ -65,9 +65,9 @@ where show s = s.Student.name + " (" + gToString{|*|} s.bama + ")" // But then how to select the fields for which the View mode applies?
task8 :: Student -> Task Student
task8 s = updateInformation
- (Title ("Update the student: " + gToString{|*|} s))
+ (Title "Update the student")
[UpdateAs (\s -> s.Student.name) (\s n -> {Student | s & name=n})]
- s
+ s -|| viewInformation (Title "Current value") [] s
students :: [Student]
students =
|