package ocamlformat-lib
Auto-formatter for OCaml code
Install
Dune Dependency
github.com
Readme
Changelog
MIT; LGPL-2.1-only WITH OCaml-LGPL-linking-exception License
Edit opam file
Versions (5)
Authors
Maintainers
Sources
ocamlformat-0.25.1.tbz
sha256=dc8f2a330ca3930b36cacb2623bb360ed8bdf6e4a8acd293dbd9e2241a6fd33d
sha512=b28f545425fb5375447c90022d065dc7fd51ed2f66d8c1f65a71a6ad2465d039a8686e8f18249e5ad3a2362fee6149c855ef30eb45fb9d06d743a53d26b3e26f
doc/src/ocamlformat-lib.parser_shims/parser_shims.ml.html
Source file parser_shims.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
module List = struct include List let rec find_map f = function | [] -> None | x :: l -> begin match f x with | Some _ as result -> result | None -> find_map f l end end module Int = struct include Int let min x y = if x <= y then x else y let max x y = if x >= y then x else y end module Misc = struct include Misc module Color = struct include Color let default_setting = Auto end module Error_style = struct include Error_style let default_setting = Contextual end end module Clflags = struct let include_dirs = ref ([] : string list)(* -I *) let debug = ref false (* -g *) let unsafe = ref false (* -unsafe *) let absname = ref false (* -absname *) let use_threads = ref false (* -thread *) let open_modules = ref [] (* -open *) let principal = ref false (* -principal *) let recursive_types = ref false (* -rectypes *) let applicative_functors = ref true (* -no-app-funct *) let for_package = ref (None: string option) (* -for-pack *) let transparent_modules = ref false (* -trans-mod *) let locations = ref true (* -d(no-)locations *) let color = ref None (* -color *) let error_style = ref None (* -error-style *) let unboxed_types = ref false end
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>