- let table = sth#map (function [`String email; `Date entry_date] ->
- let entry_date = printable_date' entry_date in
- [ "email", Template.VarString email;
- "entry_date", Template.VarString entry_date ]
- | _ -> assert false) in
+ let table =
+ sth#map (function [`String email; `String name; `Date entry_date] ->
+ let entry_date = printable_date' entry_date in
+ [ "email", Template.VarString email;
+ "name", Template.VarString name;
+ "entry_date", Template.VarString entry_date ]
+ | _ -> assert false) in