(* Synthesize our own changes. *)
let old_page = get_version_for_diff dbh old_version in
let new_page =
page_for_diff css (List.map (fun (sectionname, _, content) ->
sectionname, content) model.contents) in
(* Synthesize our own changes. *)
let old_page = get_version_for_diff dbh old_version in
let new_page =
page_for_diff css (List.map (fun (sectionname, _, content) ->
sectionname, content) model.contents) in