Skip to content

S
searx
Commit a51250b8 authored by Mudada's avatar Mudada
Browse files
Options

merge

parents 349869d9 711abfab
Show whitespace changes
Inline Side-by-side
Showing with 0 additions and 2 deletions
src/SEARX.hs
View file @ a51250b8
...@@ -26,14 +26,12 @@ import GHC.Generics ...@@ -26,14 +26,12 @@ import GHC.Generics
{- {-
debug purpose, use getMetadataWith debug purpose, use getMetadataWith
-}
getMetadataWith2 :: T.Text -> IO (Either ClientError Documents) getMetadataWith2 :: T.Text -> IO (Either ClientError Documents)
getMetadataWith2 q = do getMetadataWith2 q = do
manager' <- newManager tlsManagerSettings manager' <- newManager tlsManagerSettings
runClientM runClientM
(search (Just q) (Just 1) (Just 3) (Just "") (Just All) (Just Json)) (search (Just q) (Just 1) (Just 3) (Just "") (Just All) (Just Json))
(mkClientEnv manager' $ BaseUrl Https "search.iscpif.fr" 443 "") (mkClientEnv manager' $ BaseUrl Https "search.iscpif.fr" 443 "")
{--
read($url, function(err, article, meta) { read($url, function(err, article, meta) {
// Title // Title
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment