From 73d9daeb5524d37e962651653cd8b84d1d8b0d19 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 16 Oct 2017 11:39:07 +0200
Subject: Improve skeleton5/task8
---
assignment-5/skeleton5.icl | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'assignment-5/skeleton5.icl')
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 =
--
cgit v1.2.3