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

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

(limited to 'src')

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