[restructure, retain textarea Ketil Malde **20080522102112] { hunk ./Columns.hs 11 + unlike [] = False hunk ./SNPCGI.hs 25 - Just n -> genResult n - Nothing -> output form + Just n -> output $ html (form ++ genResult n) + Nothing -> output $ html form hunk ./SNPCGI.hs 28 -genResult s = do +genResult s = hunk ./SNPCGI.hs 31 - output ("Polymorphic columns

Polymorphic columns

"++
-            (alignCols $ showCols hs $ filterCols $ enumerate (last ss) cols)++
-	    -- unlines hs ++ unlines ss ++
-            "
") + in "

Polymorphic columns

\n
\n"++ 
+       (alignCols $ showCols hs $ filterCols $ enumerate (last ss) cols)++ "\n
" + +form = "

Paste your alignment below:

\n" ++ + "
\n" ++ + "
\n" ++ + "
\n" + +html c = "Alignment analyzer\n" ++ c ++"\n" hunk ./SNPCGI.hs 41 -form = "Alignment analyzer" ++ - "

Paste your alignment below:

" ++ - "
" ++ - "
" ++ - "
" }