various improvements, corrected logic errors

2015-04-07 14:28:40 +00:00
parent 56229fb85a
commit 421b3e4681
3 changed files with 21 additions and 12 deletions
--- a/phase1.hs
+++ b/phase1.hs
@@ -18,8 +18,8 @@ main = do
        Right val -> do
            let table = map (ItemSet. Set.fromList .map Item) val
            let freqPats = concat (frequentPatterns threshold table)
-	    let output = formatToCSV table freqPats
-	    putStrLn output
+            let output = formatToCSV table freqPats
+            putStrLn output
            when (length args > 2) $
                writeFile (args !! 2) $ output