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

fmt

Browse source
This commit is contained in:
pena 2022-02-18 02:40:04 +01:00 • committed by Swrup
parent cb9bd385dd
commit 17242a0777
7 changed files with 41 additions and 127 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/js/js_map.ml
View file

@ -65,16 +65,12 @@ module Leaflet = struct
match
Brr_io.Storage.set_item storage (Jstr.of_string "lat") (Jv.to_jstr lat)
with
| (exception Jv.Error _)
| Error _ ->
failwith "can't set latlng storage"
| (exception Jv.Error _) | Error _ -> failwith "can't set latlng storage"
| Ok () -> (
match
Brr_io.Storage.set_item storage (Jstr.of_string "lng") (Jv.to_jstr lng)
with
| (exception Jv.Error _)
| Error _ ->
failwith "can't set latlng storage"
| (exception Jv.Error _) | Error _ -> failwith "can't set latlng storage"
| Ok () -> () )
let on_zoomend _event =
@ -83,9 +79,7 @@ module Leaflet = struct
match
Brr_io.Storage.set_item storage (Jstr.of_string "zoom") (Jv.to_jstr zoom)
with
| (exception Jv.Error _)
| Error _ ->
failwith "can't set latlng storage"
| (exception Jv.Error _) | Error _ -> failwith "can't set latlng storage"
| Ok () -> ()
let () =