merge

a51250b8 · Mudada · 349869d9 · 711abfab · a51250b8
Commit a51250b8 authored Oct 07, 2019 by Mudada
Hide whitespace changes
Inline Side-by-side

Showing with 0 additions and 2 deletions

SEARX.hs src/SEARX.hs +0 -2

No files found.
--- a/src/SEARX.hs
+++ b/src/SEARX.hs
@@ -26,14 +26,12 @@ import GHC.Generics

 {-
 debug purpose, use getMetadataWith
-}
 getMetadataWith2 :: T.Text -> IO (Either ClientError Documents)
 getMetadataWith2 q = do
  manager' <- newManager tlsManagerSettings
  runClientM
    (search (Just q) (Just 1) (Just 3) (Just "") (Just All) (Just Json))
    (mkClientEnv manager' $ BaseUrl Https "search.iscpif.fr" 443 "")
-{--

          read($url, function(err, article, meta) {
            // Title