Skip to content
This repository was archived by the owner on May 1, 2024. It is now read-only.

Commit 5539d42

Browse files
committed
Correct CSVToErlangData to actually split the CSV data (and then actually call it...)
1 parent 2588b1c commit 5539d42

File tree

1 file changed

+10
-6
lines changed

1 file changed

+10
-6
lines changed

ElixirWeb.iss

Lines changed: 10 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -242,17 +242,19 @@ end;
242242
function CSVToErlangData(Filename: String): TErlangData;
243243
var
244244
Rows: TArrayOfString;
245+
RowValues: TStrings;
245246
begin
246247
LoadStringsFromFile(Filename, Rows);
248+
RowValues := SplitString(Rows[0], ',');
247249
248250
with Result do begin
249-
OTPVersion := Rows[0][0];
250-
ERTSVersion := Rows[0][1];
251-
URL32 := Rows[0][2];
252-
URL64 := Rows[0][3];
251+
OTPVersion := RowValues[0];
252+
ERTSVersion := RowValues[1];
253+
URL32 := RowValues[2];
254+
URL64 := RowValues[3];
253255
254-
Exe32 := ExpandConstant('{tmp}\' + GetURLFilePart(URL32));
255-
Exe64 := ExpandConstant('{tmp}\' + GetURLFilePart(URL64));
256+
Exe32 := GetURLFilePart(URL32);
257+
Exe64 := GetURLFilePart(URL64);
256258
Name32 := 'OTP ' + OTPVersion + ' (32-bit)';
257259
Name64 := 'OTP ' + OTPVersion + ' (64-bit)';
258260
end;
@@ -401,6 +403,8 @@ begin
401403
'Select another release to install',
402404
'', 0, False, True, nil
403405
);
406+
407+
GlobalErlangData := CSVToErlangData(GetErlangCSVFilePath);
404408
end;
405409
406410
function InitializeSetup(): Boolean;

0 commit comments

Comments
 (0)