[html table format
Ketil Malde <ketil@malde.org>**20080523113708] {
hunk ./SNPCGI.hs 29
+-- replaces: alignCols . showCols
+formatCols :: [String] -> [((Int,Char), [Char])] -> String
+formatCols names cols = tabulate $ showCols names cols
+    where tabulate (h:rs) = table (tr th h ++ concatMap (tr td) rs)
+          table t = "<table>\n"++t++"</table>"
+          th t    = "<th>"++t++"</th>"
+          td t    = "<td>"++t++"</td>"
+          tr :: (String -> String) -> [String] -> String
+          tr c cs = "<tr>"++concatMap c cs++"</tr>"
+
hunk ./SNPCGI.hs 43
-       (alignCols $ showCols hs $ filterCols snp_columns $ enumerate (last ss) cols)++ "\n</pre>"
+       (formatCols hs $ filterCols snp_columns $ enumerate (last ss) cols)++ "\n</pre>"
}