diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index cf557a0..f758ef7 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -7,6 +7,7 @@ module Main import HTTP import System.Environment (getArgs, getProgName) +import System.Directory (createDirectory) import Data.List (intercalate) import Data.Text (Text) @@ -35,8 +36,12 @@ main = do T.putStrLn error Right perfumesSequences -> let commonPerfumes = getCommonPerfumes perfumesSequences - outputName = (intercalate "-" materials) ++ ".csv" - in T.writeFile outputName (csvPerfumes commonPerfumes) + outputDirectory = "output" + outputName = outputDirectory ++ "/" ++ (intercalate "-" materials) ++ ".csv" + in do + createDirectory outputDirectory + T.writeFile outputName (csvPerfumes commonPerfumes) + putStrLn ("Successfully generated " ++ outputName) getHtmlPerfumes :: Text -> IO (Either Text [Perfume]) getHtmlPerfumes material = do |