table :: [TestTable] -> BH.Html
table t = BH.table ! BA.style "width:100%" $ 
            tableHeader >> CM.forM_ t tableRow
table :: [TestTable] -> BH.Html
table t = BH.table ! BA.style "width:100%" $ 
            tableHeader >> CM.forM_ t tableRow
table t = BH.table ! BA.style "width:100%" $ 
            tableHeader >> CM.forM_ t tableRow