Commit 9b9a5931 authored by Iustin Pop's avatar Iustin Pop
Browse files

Do not try both http and https against the server

This patch changes the tryRapi function so that if the http request
succeeded, we don't try https too.
parent d7cf83bf
......@@ -103,10 +103,9 @@ tryRapi :: String -> String -> IO (Either String String)
tryRapi url1 url2 =
do
body1 <- getUrl url1
body2 <- getUrl url2
return (case body1 of
Left _ -> body2
Right _ -> body1)
(case body1 of
Left _ -> getUrl url2
Right _ -> return body1)
getInstances :: String -> IO (Either String String)
getInstances master =
......
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