From 9e1f5f82edfd86dc2f4059360ad1a923405936ed Mon Sep 17 00:00:00 2001
From: riderkick <colivaja@gmail.com>
Date: Wed, 28 Feb 2018 06:34:17 +0800
Subject: [PATCH] fix update

---
 baseunits/SelfUpdater.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/baseunits/SelfUpdater.pas b/baseunits/SelfUpdater.pas
index 0757e328e..02c7d01ac 100644
--- a/baseunits/SelfUpdater.pas
+++ b/baseunits/SelfUpdater.pas
@@ -211,6 +211,7 @@ procedure TSelfUpdaterThread.SyncFinishRestart;
 
 procedure TSelfUpdaterThread.ProceedUpdate;
 begin
+  writeln('proced update?');
   if not DownloadSuccess then Exit;
   if FileExists(OLD_CURRENT_UPDATER_EXE) then
     DeleteFile(OLD_CURRENT_UPDATER_EXE);
@@ -257,6 +258,7 @@ procedure TSelfUpdaterThread.Execute;
     Synchronize(@SyncStartDownload);
     if FHTTP.GET(UpdateURL) and (FHTTP.ResultCode < 300) then
     begin
+      DownloadSuccess := True;
       Filename := FMD_DIRECTORY + UPDATE_PACKAGE_NAME;
       if FileExists(Filename) then
         DeleteFile(Filename);