update resolver version, ServantError~>ClientError

src/HAL.hs

@@ -8,21 +8,20 @@ import Data.Text
 import Network.HTTP.Client (newManager)
 import Network.HTTP.Client.TLS (tlsManagerSettings)
 
-import Servant.Client (BaseUrl(..), Scheme(..), ClientM, ServantError,
-                       runClientM, mkClientEnv)
+import Servant.Client (BaseUrl(..), Scheme(..), ClientM, ClientError, runClientM, mkClientEnv)
 
 import HAL.Client
 import HAL.Doc
 
-runHalAPIClient :: ClientM (Response Doc) -> IO (Either ServantError (Response Doc))
+runHalAPIClient :: ClientM (Response Doc) -> IO (Either ClientError (Response Doc))
 runHalAPIClient cmd = do
   manager' <- newManager tlsManagerSettings
   runClientM cmd (mkClientEnv manager' $ BaseUrl Https "api.archives-ouvertes.fr" 443 "")
 
-runStructureRequest :: Maybe Text -> IO (Either ServantError (Response Doc))
+runStructureRequest :: Maybe Text -> IO (Either ClientError (Response Doc))
 runStructureRequest rq =
   runHalAPIClient $ structure def rq (Just 10000)
 
-runSearchRequest :: [Text] -> IO (Either ServantError (Response Doc))
+runSearchRequest :: [Text] -> IO (Either ClientError (Response Doc))
 runSearchRequest rq =
   runHalAPIClient $ search def rq Nothing Nothing Nothing

stack.yaml

@@ -17,7 +17,7 @@
 #
 # resolver: ./custom-snapshot.yaml
 # resolver: https://example.com/snapshots/2018-01-01.yaml
-resolver: lts-13.10
+resolver: lts-14.1
 
 # User packages to be built.
 # Various formats can be used as shown in the example below.