From 2db34f050aa250c4c11a35cb201cc1c7a28d083d Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Mon, 17 Oct 2016 11:05:25 +0200 Subject: Move from test-framework to tasty --- src/Hakyll/Check.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Hakyll/Check.hs b/src/Hakyll/Check.hs index c917f3a..157b5d7 100644 --- a/src/Hakyll/Check.hs +++ b/src/Hakyll/Check.hs @@ -204,7 +204,7 @@ checkExternalUrl url = do result <- liftIO $ try $ do mgr <- Http.newManager Http.tlsManagerSettings runResourceT $ do - request <- Http.parseUrl urlToCheck + request <- Http.parseRequest urlToCheck response <- Http.http (settings request) mgr let code = Http.statusCode (Http.responseStatus response) return $ code >= 200 && code < 300 -- cgit v1.2.3