erabo/spiegel-keyman
1
0
Fork 0
mirror of https://github.com/keymanapp/keyman.git synced 2026-08-11 11:25:34 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 13

fix(windows): beta uses wrong server

Browse source
This commit is contained in:
Marc Durdin 2020-12-15 12:11:11 +11:00
parent 4c31ee69ee
commit 895cd8b375
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
windows/src/global/delphi/general/Upload_Settings.pas
View file

@ -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);