tableRow :: TestTable -> BH.Html
tableRow t = BH.tr $ BH.td (BH.toHtml $ string1 t) >> 
                     BH.td (BH.toHtml $ string2 t) >> 
                     BH.td (BH.toHtml $ num t)
tableRow :: TestTable -> BH.Html
tableRow t = BH.tr $ BH.td (BH.toHtml $ string1 t) >> 
                     BH.td (BH.toHtml $ string2 t) >> 
                     BH.td (BH.toHtml $ num t)
tableRow t = BH.tr $ BH.td (BH.toHtml $ string1 t) >> 
                     BH.td (BH.toHtml $ string2 t) >> 
                     BH.td (BH.toHtml $ num t)