@@ 13,7 13,6 @@ package body Tweet_Parser is
procedure Add_Tweet (Source : in JSON.Data.JSON_Root_Type'Class;
Target : out Tweet_List.List) is
begin
Put_Line ("Add_Tweet");
if Get_Type (Source) = JSON_Object then
declare
Text_Obj : JSON.Data.JSON_Root_Type'Class :=