From c479f38603263252dbb13977f0347bba954fdba2 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 26 Jan 2018 12:18:51 +0100
Subject: [PATCH] dub fetch to libman, use http for now, close #223 for now

---
 src/ce_libmaneditor.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/ce_libmaneditor.pas b/src/ce_libmaneditor.pas
index a6acc5dc..3d8a85e4 100644
--- a/src/ce_libmaneditor.pas
+++ b/src/ce_libmaneditor.pas
@@ -225,7 +225,7 @@ begin
   ics := GetIconScaledSize;
 
   width  := ScaleX(400,96);
-  height := ScaleY(34,96);
+  height := ScaleY(40,96);
   BorderStyle:= bsToolWindow;
   caption := 'Select or type the DUB package name';
   Position:= poMainFormCenter;
@@ -329,7 +329,8 @@ begin
   cli := TFPHTTPClient.Create(nil);
   try
     try
-      pge := cli.Get('https://code.dlang.org/api/packages/search');
+      //TODO: use HTTPS when FCL-WEB will allow it again.
+      pge := cli.Get('http://code.dlang.org/api/packages/search');
     except
       pge := '[]';
     end;
@@ -390,7 +391,8 @@ begin
       with TFPHTTPClient.Create(nil) do
       try
         try
-          result := Get('https://code.dlang.org/api/packages/' + packageName + '/latest');
+          //TODO: use HTTPS when FCL-WEB will allow it again.
+          result := Get('http://code.dlang.org/api/packages/' + packageName + '/latest');
         except
           result := 'master';
         end;