diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-07-03 16:57:07 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-07-03 16:57:07 +1000 |
| commit | 8b6cc411cceb51b26579f8fcf94424b4842ef0bf (patch) | |
| tree | 779ae4f76df38e6c6cd745bd63a5f44a9a169191 /src/bundles-containers.adb | |
| parent | 18b2b85a28c4e8d59cd564612bb7f60019c53051 (diff) | |
Changed build from makefile to gpr file
Diffstat (limited to 'src/bundles-containers.adb')
| -rw-r--r-- | src/bundles-containers.adb | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/bundles-containers.adb b/src/bundles-containers.adb index 1e566fa..a3e2ef0 100644 --- a/src/bundles-containers.adb +++ b/src/bundles-containers.adb @@ -65,8 +65,11 @@ package body Bundles.Containers is while not End_Of_File (Input_File) loop Current_Record := My_CSV.Parse_Line (Get_Line (Input_File)); if Integer (Current_Record.Length) > 0 then - Current_Prefs := Given_Prefs.Parse_Preferences (SU.To_String (Current_Record.Last_Element)); - if Current_Prefs (Given_Prefs.Preference_Range'First) /= Candidates.No_Candidate then + Current_Prefs := Given_Prefs.Parse_Preferences + (SU.To_String (Current_Record.Last_Element)); + if Current_Prefs (Given_Prefs.Preference_Range'First) /= + Candidates.No_Candidate + then Add_To_Map (Result, Current_Prefs); end if; end if; |