ShowS +html

showsTable :: Show a => BlockTable a -> ShowS
html Text.Html.BlockTable