changed indent method according to ghc standard

phase1.hs

@@ -7,12 +7,12 @@ import Control.Monad(when)
 
 main :: IO()
 main = do
-	args <- getArgs
-	when (2 /= length args) (error "Usage: Main <file.csv> <threshold>")
-	let filename = head args
-	let threshold = read $ last args
-	file <- readFile filename
-	case parseCSV file of
-		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
+    args <- getArgs
+    when (2 /= length args) (error "Usage: Main <file.csv> <threshold>")
+    let filename = head args
+    let threshold = read $ last args
+    file <- readFile filename
+    case parseCSV file of
+    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