Skip to content

I
istex
Verified Commit 5f1f42e3 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[refactor] remove commented code

parent dd94ce88
Hide whitespace changes
Inline Side-by-side
Showing with 0 additions and 2 deletions
src/ISTEX.hs
View file @ 5f1f42e3
......@@ -15,7 +15,6 @@ import System.X509 (getSystemCertificateStore)
runIstexAPIClient :: ClientM (Documents) -> IO (Either ClientError Documents)
runIstexAPIClient cmd = do
-- manager' <- newManager tlsManagerSettings
scs <- getSystemCertificateStore
manager' <- newManager $ getTLSManagerSettings scs
runClientM cmd (mkClientEnv manager' $ BaseUrl Https "api.istex.fr" 443 "document")
......@@ -47,7 +46,6 @@ type ErrorHandler = ClientError -> IO ()
runIstexScrollAPIClient :: ClientM (ScrollResponse) -> IO (Either ClientError ScrollResponse)
runIstexScrollAPIClient cmd = do
-- manager' <- newManager tlsManagerSettings
scs <- getSystemCertificateStore
manager' <- newManager $ getTLSManagerSettings scs
runClientM cmd (mkClientEnv manager' $ BaseUrl Https "api.istex.fr" 443 "document")
......
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