Get rid of the warnings in the "server" as well

.gitignore

@@ -7,3 +7,6 @@ gnatinspect.db
 *.cswi
 *-loc.xml
 cvg
+messages.txt
+*.cgpr
+

server/src/yaml-servers.ads

@@ -12,7 +12,7 @@ package Yaml.Servers is
      new Server.Connections_Factory with null record;
 
    type Yaml_Client is new HTTP.HTTP_Client with null record;
-
+   pragma Warnings (Off, "formal parameter ""From"" is not referenced");
    overriding function Create (Factory  : access Yaml_Factory;
                                Listener : access Server.Connections_Server'Class;
                                From     : GNAT.Sockets.Sock_Addr_Type)
@@ -22,5 +22,7 @@ package Yaml.Servers is
                        Input_Size     => Factory.Input_Size,
                        Output_Size    => Factory.Output_Size));
 
+   pragma Warnings (On, "formal parameter ""From"" is not referenced");
+
    overriding procedure Do_Get (Client : in out Yaml_Client);
 end Yaml.Servers;

src/implementation/yaml-inspect.adb

@@ -4,8 +4,9 @@
 with Ada.Exceptions;
 with Yaml.Events.Queue;
 with Yaml.Parser;
-
+With GNAT.Strings;
 procedure Yaml.Inspect (Input : String) is
+   use GNAT.Strings;
    type Error_Kind is (None, From_Lexer, From_Parser);
 
    P : Parser.Instance;
@@ -15,7 +16,7 @@ procedure Yaml.Inspect (Input : String) is
    Read_Events : constant Events.Queue.Reference := Events.Queue.New_Queue;
    Occurred_Error : Error_Kind := None;
    Lexer_Token_Start, Lexer_Token_End : Mark;
-   Exception_Message : access String;
+   Exception_Message : String_Access;
 begin
    P.Set_Input (Input);
    Start_Emitting;

yaml_all.gpr

@@ -0,0 +1,7 @@
+Aggregate project Yaml_All is
+   for Project_Files use project'Project_Files & ("yaml-annotation_processor.gpr");
+   for Project_Files use project'Project_Files & ("yaml.gpr");
+   for Project_Files use project'Project_Files & ("yaml-server.gpr");
+   for Project_Files use project'Project_Files & ("yaml-tests.gpr");
+   for Project_Files use project'Project_Files & ("yaml-utils.gpr");
+end Yaml_All;