From 14670ab83231172f9f7bcb9f9ac0a11defe97c9a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 30 Aug 2015 21:56:47 +0200
Subject: Create output directory if missing

---
 perfume     | 1 +
 run         | 1 +
 src/Main.hs | 4 ++--
 3 files changed, 4 insertions(+), 2 deletions(-)
 create mode 120000 perfume
 create mode 120000 run

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)
 
-- 
cgit v1.2.3