[paintTable
thomashartman1@gmail.com**20080917132934] hunk ./src/View.hs 85
-paintTable t = "<table>" ++ trs ++ "</table"
-  where trs = concatMap tr . (concat . (map . map) td) $ t
-        tr x = "<tr>" ++ x ++ "</tr>"
-        td x = "<td>" ++ x ++ "</td>"
+paintTable cells = table . concat .  map (tr . concat) . ( (map . map) td ) $ cells
hunk ./src/View.hs 87
+tr x = "<tr>" ++ x ++ "</tr>"
+td x = "<td>" ++ x ++ "</td>"
+table x = "<table>" ++ x ++ "</table>"