Fix URLs

Signed-off-by: Alban Gruin <alban.gruin@univ-tlse3.fr>
ocaml-sf · Jun 29, 2020 · 15bad51 · 15bad51
1 parent 22f7f8f
commit 15bad51
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/app/learnocaml_exercise_main.ml b/src/app/learnocaml_exercise_main.ml
@@ -10,6 +10,7 @@ open Js_utils
 open Lwt.Infix
 open Learnocaml_common
 open Learnocaml_data
+open Learnocaml_config
 
 module H = Tyxml_js.Html
 
@@ -197,7 +198,7 @@ let () =
   begin toolbar_button
       ~icon: "list" [%i"Exercises"] @@ fun () ->
     Dom_html.window##.location##assign
-      (Js.string "/index.html#activity=exercises") ;
+      (Js.string (api_server ^ "/index.html#activity=exercises")) ;
     Lwt.return ()
   end ;
   let messages = Tyxml_js.Html5.ul [] in

diff --git a/src/app/learnocaml_playground_main.ml b/src/app/learnocaml_playground_main.ml
@@ -10,6 +10,7 @@ open Js_utils
 open Lwt.Infix
 open Learnocaml_common
 open Learnocaml_data
+open Learnocaml_config
 
 module H = Tyxml_js.Html
 
@@ -69,7 +70,7 @@ let main () =
   begin toolbar_button
       ~icon: "list" [%i"Playground"] @@ fun () ->
     Dom_html.window##.location##assign
-      (Js.string "/index.html#activity=playground") ;
+      (Js.string (api_server ^ "/index.html#activity=playground")) ;
     Lwt.return ()
   end ;
   let typecheck = typecheck top ace editor in