From 895cd8b375ea4e2e5dbe71c68abffbcaec46ea29 Mon Sep 17 00:00:00 2001 From: Marc Durdin Date: Tue, 15 Dec 2020 12:11:11 +1100 Subject: [PATCH] fix(windows): beta uses wrong server --- windows/src/global/delphi/general/Upload_Settings.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/windows/src/global/delphi/general/Upload_Settings.pas b/windows/src/global/delphi/general/Upload_Settings.pas index 099b5afe03..6e1ecc6fc4 100644 --- a/windows/src/global/delphi/general/Upload_Settings.pas +++ b/windows/src/global/delphi/general/Upload_Settings.pas @@ -137,7 +137,8 @@ end; function KeymanCom_Protocol_Server: string; // = 'https://keyman.com'; begin - if CKeymanVersionInfo.Tier = TIER_ALPHA + if (CKeymanVersionInfo.Tier = TIER_ALPHA) or + (CKeymanVersionInfo.Tier = TIER_BETA) then Result := S_KeymanCom_Alpha else Result := S_KeymanCom; Result := GetDebugPath('Debug_KeymanCom', Result, False); @@ -150,7 +151,8 @@ end; function API_Server: string; // = 'api.keyman.com'; begin - if CKeymanVersionInfo.Tier = TIER_ALPHA + if (CKeymanVersionInfo.Tier = TIER_ALPHA) or + (CKeymanVersionInfo.Tier = TIER_BETA) then Result := S_APIServer_Alpha else Result := S_APIServer; Result := GetDebugPath('Debug_APIServer', Result, False);