Generate csv files in the output directory

1 files changed, 7 insertions, 2 deletions

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