forked from
jonmsterling.com/ocaml-forester
ocaml
fix another IRI identity issue
Resolves: https://todo.sr.ht/~jonsterling/forester/133
+1
-1
+1
-1
lib/compiler/Forest.ml
+1
-1
lib/compiler/Forest.ml
···
191
191
in
192
192
Option.value ~default: short_title @@
193
193
match frontmatter.designated_parent with
194
-
| Some parent_iri when not (scope = frontmatter.designated_parent) ->
194
+
| Some parent_iri when not (Option.equal Iri.equal scope frontmatter.designated_parent) ->
195
195
let@ parent = Option.map @~ get_article parent_iri forest in
196
196
let parent_title = get_expanded_title parent.frontmatter forest in
197
197
let parent_link = T.Link {href = parent_iri; content = parent_title} in