Create output directory if missing

3 files changed, 4 insertions, 2 deletions

diff --git a/perfume b/perfume
new file mode 120000
index 0000000..f5b7185
--- /dev/null
+++ b/perfume
@@ -0,0 +1 @@
+./dist/build/perfume/perfume
\ No newline at end of file
diff --git a/run b/run
new file mode 120000
index 0000000..f5b7185
--- /dev/null
+++ b/run
@@ -0,0 +1 @@
+./dist/build/perfume/perfume
\ No newline at end of file
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)