From 84b8439aa90f1465d05dcba936a25eaf96f914a0 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Sat, 26 Feb 2022 13:42:32 +0100
Subject: Use the whole dictionnary when searching for a word for a faster
 exploration

---
 motus/js/motus.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'motus/js/motus.ml')

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
-- 
cgit v1.2.3