Xawirses/GitMining
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

added error message

Browse Source
This commit is contained in:
IGI-111
2015-04-03 23:23:34 +02:00
parent 8208f03f82
commit 6009448971
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Main.hs
View File

@@ -4,10 +4,12 @@ import CSVParser
import Apriori import Apriori
import qualified Data.Set as Set import qualified Data.Set as Set
import System.Environment (getArgs) import System.Environment (getArgs)
import Control.Monad
main :: IO() main :: IO()
main = do main = do
args <- getArgs args <- getArgs
when (2 /= length args) (error "Usage: Main <file.csv> <threshold>")
let filename = head args let filename = head args
let threshold = read $ last args let threshold = read $ last args
file <- readFile filename file <- readFile filename