Minor reformatting.

Author: TurboGit

src/core/aws-net-websocket.adb

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                              Ada Web Server                              --
 --                                                                          --
---                     Copyright (C) 2012-2016, AdaCore                     --
+--                     Copyright (C) 2012-2021, AdaCore                     --
 --                                                                          --
 --  This library is free software;  you can redistribute it and/or modify   --
 --  it under terms of the  GNU General Public License  as published by the  --
@@ -49,7 +49,8 @@ package body AWS.Net.WebSocket is
    end record;
 
    procedure Unchecked_Free is new Ada.Unchecked_Deallocation
-      (AWS.Client.HTTP_Connection, AWS.Client.HTTP_Connection_Access);
+     (AWS.Client.HTTP_Connection, AWS.Client.HTTP_Connection_Access);
+
    procedure Unchecked_Free is new Unchecked_Deallocation
      (Net.WebSocket.Protocol.State'Class,
       Net.WebSocket.Protocol.State_Class);
@@ -87,12 +88,12 @@ package body AWS.Net.WebSocket is
      (Socket : in out Object'Class;
       URI    : String)
    is
+      URL      : constant AWS.URL.Object := AWS.URL.Parse (URI);
       Headers  : AWS.Headers.List := AWS.Headers.Empty_List;
       Resp     : AWS.Response.Data;
-      Protocol : AWS.Net.WebSocket.Protocol.State_Class;
-      URL      : constant AWS.URL.Object := AWS.URL.Parse (URI);
+      Protocol : Net.WebSocket.Protocol.State_Class;
    begin
-      --  Initially, the connection is initiated with standard http GET.
+      --  Initially, the connection is initiated with standard http GET
 
       Socket.Connection := new AWS.Client.HTTP_Connection;
       Protocol := new Net.WebSocket.Protocol.RFC6455.State;
@@ -402,7 +403,7 @@ package body AWS.Net.WebSocket is
    function Poll
      (Socket  : in out Object'Class;
       Timeout : Duration)
-     return Boolean
+      return Boolean
    is
       procedure Do_Receive
          (Socket : not null access Object'Class;
@@ -423,11 +424,11 @@ package body AWS.Net.WebSocket is
       end Do_Receive;
 
       function Read_Message is new AWS.Net.WebSocket.Read_Message
-         (Receive => Do_Receive);
+        (Receive => Do_Receive);
 
       Obj   : Object_Class := Socket'Unrestricted_Access;
       Event : AWS.Net.Event_Set;
-      Msg   : Ada.Strings.Unbounded.Unbounded_String;
+      Msg   : Unbounded_String;
    begin
       Event := Socket.Poll
          ((AWS.Net.Input => True, others => False), Timeout => Timeout);
@@ -465,8 +466,8 @@ package body AWS.Net.WebSocket is
    ------------------
 
    function Read_Message
-      (WebSocket : in out Object_Class;
-       Message   : in out Ada.Strings.Unbounded.Unbounded_String)
+     (WebSocket : in out Object_Class;
+      Message   : in out Unbounded_String)
       return Boolean
    is
       Data : Stream_Element_Array (1 .. 4_096);