From 3d448cd55f84fb0e95f607386cad778cb827a57a Mon Sep 17 00:00:00 2001
From: marcus <marcus@idefix.freepascal.org>
Date: Sun, 29 May 2016 15:46:12 +0000
Subject: [PATCH] Removed debug output from GetServerURL()

git-svn-id: trunk@33846 -
---
 packages/fcl-web/src/base/fphttpclient.pp | 1 -
 1 file changed, 1 deletion(-)

diff --git a/packages/fcl-web/src/base/fphttpclient.pp b/packages/fcl-web/src/base/fphttpclient.pp
index bafff68501..ec0e1da073 100644
--- a/packages/fcl-web/src/base/fphttpclient.pp
+++ b/packages/fcl-web/src/base/fphttpclient.pp
@@ -513,7 +513,6 @@ begin
       Result:=':'+IntToStr(URI.Port)+Result;
     Result:=URI.Protocol+'://'+URI.Host+Result;
     end;
-  Writeln('Doing URL : ',Result);
 end;
 
 function TFPCustomHTTPClient.GetSocketHandler(const UseSSL: Boolean): TSocketHandler;