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  --
@@ -92,7 +92,7 @@ package body AWS.Net.WebSocket is
       Protocol : AWS.Net.WebSocket.Protocol.State_Class;
       URL      : constant AWS.URL.Object := AWS.URL.Parse (URI);
    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 +402,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,7 +423,7 @@ 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;
@@ -465,8 +465,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 Ada.Strings.Unbounded.Unbounded_String)
       return Boolean
    is
       Data : Stream_Element_Array (1 .. 4_096);