[paint table
thomashartman1@gmail.com**20080917125457] hunk ./src/View.hs 84
+paintTable :: [[String]] -> String
+paintTable t = "<table>" ++ trs ++ "</table"
+  where trs = concatMap tr . (concat . (map . map) td) $ t
+        tr x = "<tr>" ++ x ++ "</tr>"
+        td x = "<td>" ++ x ++ "</td>"
+