4.08 compat for markdown generator · jon.recoil.org/odoc@2823deb

jon.recoil.org / odoc

fork atom

this repo has no description

fork atom

4.08 compat for markdown generator

jon.recoil.org 8 months ago 2823deb4 17000635

2 changed files

expand all

src

markdown2

renderer.ml

utils

odoc_utils.ml

src/markdown2/renderer.ml

··· 49 49 end 50 50 51 51 module Block = struct 52 + open Odoc_utils (* For Int.max *) 53 + 52 54 type code_block = { info_string : string option; code : string list } 53 55 type list_type = Unordered | Ordered 54 56

src/utils/odoc_utils.ml

··· 68 68 let unmarshal fname = with_open_in_bin fname Marshal.from_channel 69 69 end 70 70 71 + module Int = struct 72 + include Int 73 + let max x y : t = if x >= y then x else y 74 + end 75 + 71 76 include Astring