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,26 +50,35 @@ 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"]
+      callCommand
+      [ "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|
-        var {JSDOM} = require('jsdom');
-        var rp = require('request-promise-native');
-        var Readability = require('./readability');
-        const val = await rp($url);
-        const doc = new JSDOM(val, {url: $url})
-        const reader = new Readability(doc.window.document);
-        const article = reader.parse();
-        return article;
-      |]
+            var {JSDOM} = require('jsdom');
+            var rp = require('request-promise-native');
+            var Readability = require('./readability');
+            const val = await rp($url);
+            const doc = new JSDOM(val, {url: $url})
+            const reader = new Readability(doc.window.document);
+            const article = reader.parse();
+            return article;
+            |]
 
 specConcatEith :: Semigroup a => Either b a -> Either b a -> Either b a
 specConcatEith (Left _) b = b