From c51b1ef6f4854d797e9e3c9aa9f4c5e7133640b2 Mon Sep 17 00:00:00 2001
From: Eugen Richter <er@recy-systems.com>
Date: Fri, 7 Oct 2016 09:27:01 +0200
Subject: [PATCH] Fixed #1941

The `checkCredentials` function in `ConfigFile.fs` try to connect to the root url with AND without ending `/`
---
 src/Paket.Core/ConfigFile.fs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/Paket.Core/ConfigFile.fs b/src/Paket.Core/ConfigFile.fs
index 2c6b821758..3067e9602e 100644
--- a/src/Paket.Core/ConfigFile.fs
+++ b/src/Paket.Core/ConfigFile.fs
@@ -129,7 +129,12 @@ let checkCredentials(url, cred) =
     try 
         client.DownloadData (Uri url) |> ignore
         true
-    with _ -> false
+    with _ ->
+        try
+            let folderUrl = sprintf "%s/" url
+            client.DownloadData (Uri folderUrl) |> ignore
+            true
+        with _ -> false
 
 let getSourceNodes (credentialsNode : XmlNode) source nodeType = 
     sprintf "//%s" nodeType |> credentialsNode.SelectNodes