Minor code clean-up.

Part of S507-051.

Author: TurboGit

src/http2/aws-http2-frame-ping.ads

@@ -39,7 +39,7 @@ package AWS.HTTP2.Frame.Ping is
 
    type Opaque_Data is new Stream_Element_Array (1 .. 8);
 
-   Default_Data : constant Opaque_Data := (0, 0, 0, 0, 0, 0, 0, 0);
+   Default_Data : constant Opaque_Data;
 
    function Create
      (Data  : Opaque_Data := Default_Data;
@@ -57,6 +57,8 @@ package AWS.HTTP2.Frame.Ping is
 
 private
 
+   Default_Data : constant Opaque_Data := (0, 0, 0, 0, 0, 0, 0, 0);
+
    --  RFC-7540 6.7
    --
    --  +---------------------------------------------------------------+

src/http2/aws-http2-frame.ads

@@ -28,7 +28,6 @@
 ------------------------------------------------------------------------------
 
 with Ada.Finalization;
-with Ada.Streams;
 
 with System;
 
@@ -41,7 +40,6 @@ private with AWS.Utils;
 package AWS.HTTP2.Frame is
 
    use Ada;
-   use Ada.Streams;
 
    type Object is new Finalization.Controlled with private;
 

src/http2/aws-http2-hpack.ads

@@ -29,17 +29,13 @@
 
 --  Support for HAPCK (Header compression) for HTTP/2 protocol
 
-with Ada.Streams;
-
 with AWS.Headers;
 
 limited with AWS.HTTP2.HPACK.Table;
 limited with AWS.HTTP2.Connection;
 
 package AWS.HTTP2.HPACK is
 
-   use Ada.Streams;
-
    generic
       with function End_Of_Stream return Boolean;
       with function Get_Byte return Stream_Element;

src/http2/aws-http2-message.ads

@@ -27,8 +27,6 @@
 --  covered by the  GNU Public License.                                     --
 ------------------------------------------------------------------------------
 
-with Ada.Streams;
-
 with AWS.Headers;
 with AWS.HTTP2.Frame.List;
 with AWS.Response;
@@ -42,8 +40,6 @@ limited with AWS.HTTP2.Stream;
 
 package AWS.HTTP2.Message is
 
-   use Ada.Streams;
-
    use type AWS.HTTP2.Frame.List.Count_Type;
    use type Response.Data_Mode;
 

src/http2/aws-http2-stream.ads

@@ -27,8 +27,6 @@
 --  covered by the  GNU Public License.                                     --
 ------------------------------------------------------------------------------
 
-with Ada.Streams;
-
 with AWS.Net;
 with AWS.Server.Context;
 
@@ -41,8 +39,6 @@ with AWS.Status;
 
 package AWS.HTTP2.Stream is
 
-   use Ada.Streams;
-
    type State_Kind is (Idle, Reserved_Local, Reserved_Remote, Open,
                        Half_Closed_Local, Half_Closed_Remote, Closed);
    --  RFC 7540 5.1 Stream States

src/http2/aws-http2.ads

@@ -31,6 +31,8 @@ with Ada.Streams;
 
 package AWS.HTTP2 is
 
+   use Ada.Streams;
+
    type Bit_1 is mod 2 ** 1 with Size => 1;
 
    type Byte_1 is mod 2 **  8 with Size => 8;
@@ -49,16 +51,15 @@ package AWS.HTTP2 is
       C_Enhance_Your_CALM, C_Inadequate_Security, C_HTTP_1_1_Required);
    --  Error codes that are used in RST_Stream and GoAway frames
 
-   Client_Connection_Preface : constant  Ada.Streams.Stream_Element_Array :=
-                                 (16#50#, 16#52#, 16#49#, 16#20#, 16#2a#,
-                                  16#20#, 16#48#, 16#54#, 16#54#, 16#50#,
-                                  16#2f#, 16#32#, 16#2e#, 16#30#, 16#0d#,
-                                  16#0a#, 16#0d#, 16#0a#, 16#53#, 16#4d#,
-                                  16#0d#, 16#0a#, 16#0d#, 16#0a#);
-   --  "PRI * HTTP/2.0" & CRLF & CRLF & "SM" & CRLF & CRLF
-
    Client_Connection_Preface_1 : constant String := "PRI * HTTP/2.0";
+   --  Connection preface first part
+
    Client_Connection_Preface_2 : constant String := "SM";
+   --  Connection preface second part
+
+   Client_Connection_Preface   : constant  Stream_Element_Array;
+   --  The full connection preface:
+   --  "PRI * HTTP/2.0" & CRLF & CRLF & "SM" & CRLF & CRLF
 
    function Exception_Message
      (Error : Error_Codes; Message : String) return String;
@@ -74,6 +75,13 @@ package AWS.HTTP2 is
 
 private
 
+   Client_Connection_Preface : constant Stream_Element_Array :=
+                                 (16#50#, 16#52#, 16#49#, 16#20#, 16#2a#,
+                                  16#20#, 16#48#, 16#54#, 16#54#, 16#50#,
+                                  16#2f#, 16#32#, 16#2e#, 16#30#, 16#0d#,
+                                  16#0a#, 16#0d#, 16#0a#, 16#53#, 16#4d#,
+                                  16#0d#, 16#0a#, 16#0d#, 16#0a#);
+
    for Error_Codes use (C_No_Error            => 16#0#,
                         C_Protocol_Error      => 16#1#,
                         C_Internal_Error      => 16#2#,