Skip to content

Commit

Permalink
open Odoc_utils on top of file
Browse files Browse the repository at this point in the history
  • Loading branch information
panglesd committed Aug 22, 2024
1 parent 6bb9961 commit aff2583
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions src/model/comment.ml
Original file line number Diff line number Diff line change
@@ -1,3 +1,5 @@
open Odoc_utils

module Path = Paths.Path
module Reference = Paths.Reference
module Identifier = Paths.Identifier
Expand Down Expand Up @@ -130,7 +132,7 @@ and link_content_of_inline_elements l =
l |> List.map link_content_of_inline_element |> List.concat

let find_zero_heading docs : link_content option =
Odoc_utils.List.find_map
List.find_map
(fun doc ->
match doc.Location_.value with
| `Heading ({ heading_level = `Title; _ }, _, h_content) ->
Expand All @@ -141,9 +143,7 @@ let find_zero_heading docs : link_content option =
let extract_frontmatter docs : _ =
let parse_frontmatter s =
let lines = Astring.String.cuts ~sep:"\n" s in
Odoc_utils.List.filter_map
(fun line -> Astring.String.cut ~sep:":" line)
lines
List.filter_map (fun line -> Astring.String.cut ~sep:":" line) lines
in
let fm, content =
let fm, rev_content =
Expand Down

0 comments on commit aff2583

Please sign in to comment.