Compat with <4.08 · jon.recoil.org/odoc@9f3281a

jon.recoil.org / odoc

fork atom

this repo has no description

fork atom

Compat with <4.08

jon.recoil.org 2 years ago 9f3281a7 aecf2b16

+3 -1

1 changed file

expand all

unified split

src

model

semantics.ml

+3 -1

src/model/semantics.ml

··· 237 237 | None -> None 238 238 in 239 239 let outputs = 240 - Option.map (List.map (nestable_block_element status)) output 240 + match output with 241 + | None -> None 242 + | Some l -> Some (List.map (nestable_block_element status) l) 241 243 in 242 244 Location.at location (`Code_block (lang_tag, content, outputs)) 243 245 | { value = `Math_block s; location } -> Location.at location (`Math_block s)