Commit 00478f3b authored by Erik de Castro Lopo's avatar Erik de Castro Lopo Committed by Andrew Gibiansky

Fix a couple of deprecation warnings

parent 38ac12b5
......@@ -175,6 +175,7 @@ Test-Suite hspec
ihaskell,
here,
hspec,
hspec-contrib,
HUnit,
ghc,
ghc-paths,
......
......@@ -54,10 +54,10 @@ instance FromJSON HoogleResponse where
-- an error message or the successful JSON result.
query :: String -> IO (Either String String)
query str = do
request <- parseUrl $ queryUrl $ urlEncode str
request <- parseUrlThrow $ queryUrl $ urlEncode str
mgr <- newManager tlsManagerSettings
catch
(Right . CBS.unpack . LBS.toStrict . responseBody <$> withManager tlsManagerSettings
(httpLbs request))
(Right . CBS.unpack . LBS.toStrict . responseBody <$> httpLbs request mgr)
(\e -> return $ Left $ show (e :: SomeException))
where
......
......@@ -7,7 +7,7 @@ import Prelude
import Data.String.Here (hereLit)
import Test.Hspec
import Test.Hspec.HUnit
import Test.Hspec.Contrib.HUnit
import Test.HUnit (assertBool, assertFailure)
import IHaskell.Test.Util (ghc, strip)
......
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