Create output directory if missing

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Main.hs b/src/Main.hs
index f758ef7..f4fb50a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -7,7 +7,7 @@ module Main
 import HTTP
 
 import System.Environment (getArgs, getProgName)
-import System.Directory (createDirectory)
+import System.Directory (createDirectoryIfMissing)
 
 import Data.List (intercalate)
 import Data.Text (Text)
@@ -39,7 +39,7 @@ main = do
               outputDirectory = "output"
               outputName = outputDirectory ++ "/" ++ (intercalate "-" materials) ++ ".csv"
           in  do
-                createDirectory outputDirectory
+                createDirectoryIfMissing True outputDirectory
                 T.writeFile outputName (csvPerfumes commonPerfumes)
                 putStrLn ("Successfully generated " ++ outputName)