diff options
Diffstat (limited to 'motus/js/motus.ml')
-rw-r--r-- | motus/js/motus.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/motus/js/motus.ml b/motus/js/motus.ml index 402e14a..5e1252a 100644 --- a/motus/js/motus.ml +++ b/motus/js/motus.ml @@ -86,10 +86,10 @@ let main let proposition = S.value initial_prop in Elements.Transfert.get_content_from_url words - |> E.map (fun content -> + |> E.map (fun html_response -> State.App.dispatch (module Initialize) - Initialize.{ length; content; sender; proposition } ) ) + Initialize.{ length; html_response; sender; proposition } ) ) send_btn |> E.join in |