fix update getter

front/gen_page.ml

@@ -43,7 +43,13 @@ module Make' (P : PAGE') = struct
 
     let sender, getter =
       SimpleEvent.connect_polymorphe' P.canal
-        (fun last sender getter state evt ->
+        (fun last sender getter_row state evt ->
+          let rec getter f =
+            getter_row (fun s ->
+                let s2 = f s in
+                cup (P.display { state; sender; getter });
+                s2)
+          in
           let nst = P.up_state { state; sender; getter } evt in
           if last then cup (P.display { state = nst; sender; getter });
           nst)