Commit 378aca39 authored by Benoit Barbot's avatar Benoit Barbot
Browse files

fix update getter

parent 468c967f
Pipeline #2658 failed with stage
in 32 seconds
......@@ -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)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment