kumikode/leaflet
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ocamlformat

Browse source
This commit is contained in:
Swrup 2024-12-15 06:58:09 +01:00
parent 4eec69fdf6
commit 4265cdce92
5 changed files with 67 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

14
example/css_path.ml
View file

@ -1,14 +0,0 @@
(* get leaflet.css path from dune-site *)
let dune_site = List.filter Sys.file_exists Mysites.Sites.css
let lookup_file filename =
List.find_map
(fun dir ->
let filename' = Filename.concat dir filename in
if Sys.file_exists filename' then Some filename' else None )
dune_site
let leaflet_css = lookup_file "leaflet.css" |> Option.get
let () = Format.printf "%s@." leaflet_css