@@ -204,7 +204,7 @@ checkExternalUrl url = do
204 result <- liftIO $ try $ do
204 result <- liftIO $ try $ do
205 mgr <- Http.newManager Http.tlsManagerSettings
205 mgr <- Http.newManager Http.tlsManagerSettings
206 runResourceT $ do
206 runResourceT $ do
207− request <- Http.parseUrl urlToCheck
207+ request <- Http.parseRequest urlToCheck
208 response <- Http.http (settings request) mgr
208 response <- Http.http (settings request) mgr
209 let code = Http.statusCode (Http.responseStatus response)
209 let code = Http.statusCode (Http.responseStatus response)
210 return $ code >= 200 && code < 300
210 return $ code >= 200 && code < 300
@@ -236,8 +236,7 @@ checkExternalUrl url = do
237 -- Convert exception to a concise form
237 -- Convert exception to a concise form
238 showException e = case cast e of
238 showException e = case cast e of
239− Just (Http.StatusCodeException (Http.Status code msg) _ _) ->
239+ Just (Http.HttpExceptionRequest _ e') -> show e'
240− show code ++ " " ++ unpack msg
241 _ -> head $ words $ show e
240 _ -> head $ words $ show e
243checkExternalUrl _ = return ()
242checkExternalUrl _ = return ()