create / delete directory

app/Main.hs

@@ -3,6 +3,7 @@
 module Main where
 
 import SEARX
+import System.Directory
 
 main :: IO ()
 main = do
@@ -10,5 +11,7 @@ main = do
   case res of
     (Left err) -> print err
     (Right r) -> do
-      a <- parseWebsite "https://www.lemonde.fr/economie/article/2019/09/23/thomas-cook-semble-se-diriger-vers-une-faillite_6012630_3234.html"
-      print a
+      fp <- setUpDirectory
+      article <- parseWebsite fp "https://www.lemonde.fr/politique/article/2019/10/07/apres-l-attentat-a-la-prefecture-de-police-christophe-castaner-sous-le-feu-des-critiques_6014514_823448.html"
+      removeDirectoryRecursive $ fp <> "/readability"
+      print article

src/SEARX.hs

@@ -50,14 +50,23 @@ data Article =
           }
   deriving (Generic, Show, FromJSON, ToJSON)
 
-parseWebsite :: T.Text -> IO Article
-parseWebsite url =
-  withSystemTempDirectory "" $ \tmpdir -> do
-    withCurrentDirectory tmpdir $
+setUpDirectory :: IO FilePath
+setUpDirectory =
+  do
+    dir <- getCurrentDirectory
+    _ <- withCurrentDirectory dir $
       traverse_
       callCommand
-        ["npm init --yes", "npm install --save jsdom request-promise-native",
-        "git clone https://github.com/mozilla/readability.git"]
+      [ "npm init --yes"
+      , "npm install --save jsdom request-promise-native"
+      , "git clone https://github.com/mozilla/readability.git"
+      ]
+    getCurrentDirectory
+
+
+parseWebsite :: FilePath -> T.Text -> IO Article
+parseWebsite tmpdir url =
+  do
     withJSSession
       defJSSessionOpts {nodeWorkDir = Just tmpdir}
       [block|