diff options
Diffstat (limited to 'lib/render/emit_xml.ml')
| -rw-r--r-- | lib/render/emit_xml.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/render/emit_xml.ml b/lib/render/emit_xml.ml index 3f1ca32..f0849cd 100644 --- a/lib/render/emit_xml.ml +++ b/lib/render/emit_xml.ml @@ -32,7 +32,16 @@ let day b d = if value <> "" then Buffer.add_string b (" <citation part=\"" ^ name ^ "\">" ^ escape value ^ "</citation>\n") in + (* W5: a THIRD element, not a hardcoded pair -- [<citation>] is a repeated + element, not a fixed column, so there is no structural reason to leave + [second] out the way [Emit_csv]'s own fixed header row genuinely must + (see that module's own comment). [cite]'s own [value <> ""] guard + already makes this a no-op for every EF day (view.ml's [day_value] + never sets a "second" key for EF at all, so [s d "second"] resolves to + "" through [get]'s own [None -> ""] fallback) -- EF's XML is therefore + unchanged BY CONSTRUCTION, not by a rite check here. *) cite "first" (s d "first"); + cite "second" (s d "second"); cite "gospel" (s d "gospel"); Buffer.add_string b " </day>\n" |