swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

/babillard -> /

Browse source
This commit is contained in:
Swrup 2022-02-18 19:02:17 +01:00
parent ad460ee549
commit d69a6daeab
4 changed files with 13 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/js/js_map.ml
View file

@ -121,7 +121,7 @@ module Marker = struct
let thread_preview_div = Jv.get Jv.global "thread_preview_div" in
ignore @@ Jv.set thread_preview_div "innerHTML" thread_preview;
let thread_link = Jv.get Jv.global "thread_link" in
let link = Format.sprintf "/babillard/%s" thread_id in
let link = Format.sprintf "/%s" thread_id in
ignore @@ Jv.set thread_link "href" (Jv.of_string link);
ignore @@ Jv.set thread_link "innerText" (Jv.of_string "[View Thread]");
let _ = Js_pretty_post.make_pretty () in
@ -161,7 +161,7 @@ module Marker = struct
let () =
log "fetch thread geojson@.";
let window = Jv.get Jv.global "window" in
let link = Jv.of_string "/babillard/markers" in
let link = Jv.of_string "/markers" in
let fetchfutur = Jv.call window "fetch" [| link |] in
ignore @@ Jv.call fetchfutur "then" [| Jv.repr markers_handle_response |]
end