- content = TextBlock (A {name = NONE,
- href = SOME (file' ^ ".html"),
- rel = NONE,
- rev = NONE,
- title = NONE,
- content = PCDATA (uppercase file')})}
+ content = BlockList
+ [TextBlock (A {name = NONE,
+ href = SOME (file' ^ ".html"),
+ rel = NONE,
+ rev = NONE,
+ title = NONE,
+ content = PCDATA (uppercase file')}),
+ TextBlock (PCDATA (Option.getOpt (desc, "")))]}