From 779e58b150aacd2d4eb50a7ec761bb9454499b6f Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 30 Aug 2015 21:39:25 +0200
Subject: Generate csv files in the output directory

---
 src/Main.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index cf557a0..f758ef7 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -7,6 +7,7 @@ module Main
 import HTTP
 
 import System.Environment (getArgs, getProgName)
+import System.Directory (createDirectory)
 
 import Data.List (intercalate)
 import Data.Text (Text)
@@ -35,8 +36,12 @@ main = do
           T.putStrLn error
         Right perfumesSequences ->
           let commonPerfumes = getCommonPerfumes perfumesSequences
-              outputName = (intercalate "-" materials) ++ ".csv"
-          in  T.writeFile outputName (csvPerfumes commonPerfumes)
+              outputDirectory = "output"
+              outputName = outputDirectory ++ "/" ++ (intercalate "-" materials) ++ ".csv"
+          in  do
+                createDirectory outputDirectory
+                T.writeFile outputName (csvPerfumes commonPerfumes)
+                putStrLn ("Successfully generated " ++ outputName)
 
 getHtmlPerfumes :: Text -> IO (Either Text [Perfume])
 getHtmlPerfumes material = do
-- 
cgit v1.2.3