diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 4 |
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) |