From ee984a685dbb5696f94691242a2a273d924b8531 Mon Sep 17 00:00:00 2001 From: IGI-111 Date: Fri, 3 Apr 2015 23:24:46 +0200 Subject: [PATCH] added error messages --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Main.hs b/Main.hs index 170544f..011200c 100644 --- a/Main.hs +++ b/Main.hs @@ -14,6 +14,6 @@ main = do let threshold = read $ last args file <- readFile filename case parseCSV file of - Left _ -> putStrLn "Could not parse out.csv" + Left _ -> error "Could not parse out.csv" Right val -> mapM_ (\x -> putStrLn (show x ++ "(" ++ show (count table x) ++ ")")) (concat (frequentPatterns threshold table)) where table = map (ItemSet. Set.fromList .map Item) val