diff options
| -rw-r--r-- | .gitignore | 1 | ||||
| -rw-r--r-- | README.md | 2 | ||||
| -rw-r--r-- | perfume.cabal | 1 | ||||
| -rw-r--r-- | src/Main.hs | 9 |
4 files changed, 10 insertions, 3 deletions
@@ -1,2 +1,3 @@ node_modules dist +output @@ -1,6 +1,6 @@ # Perfumes -Get perfumes with the same materials. +Get perfumes with the same materials thanks to data from http://olfatheque.com. ## Usage diff --git a/perfume.cabal b/perfume.cabal index 7f5c8e6..f096a35 100644 --- a/perfume.cabal +++ b/perfume.cabal @@ -17,3 +17,4 @@ executable perfume , lens == 4.12.3 , aeson == 0.9.0.1 , utf8-string == 1.0.1.1 + , directory == 1.2.3.1 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 |