Minor code reformatting.

no-tn-check

Author: TurboGit

src/core/aws-server-protocol_handler.adb

@@ -118,8 +118,7 @@ begin
                AWS.Log.Write
                  (LA.Server.Error_Log,
                   Request,
-                  Utils.CRLF_2_Spaces
-                    (Ada.Exceptions.Exception_Information (E)));
+                  Utils.CRLF_2_Spaces (Exception_Information (E)));
                return False;
          end Send_Error_Answer;
 
@@ -282,7 +281,7 @@ begin
             AWS.Log.Write
               (LA.Server.Error_Log,
                Request,
-               Utils.CRLF_2_Spaces (Ada.Exceptions.Exception_Information (E)));
+               Utils.CRLF_2_Spaces (Exception_Information (E)));
 
             Will_Close := True;
 
@@ -308,7 +307,7 @@ begin
                Error_Answer := Response.Build
                  (Status_Code  => Messages.S400,
                   Content_Type => "text/plain",
-                  Message_Body => Ada.Exceptions.Exception_Message (E));
+                  Message_Body => Exception_Message (E));
 
                LA.Server.Slots.Mark_Phase (LA.Line, Server_Response);
 
@@ -322,16 +321,15 @@ begin
             AWS.Log.Write
               (LA.Server.Error_Log,
                Request,
-               Utils.CRLF_2_Spaces
-                 (Ada.Exceptions.Exception_Information (E)));
+               Utils.CRLF_2_Spaces (Exception_Information (E)));
 
             Will_Close := True;
 
             if First_Line then
                Error_Answer := Response.Build
                  (Status_Code  => Messages.S414,
                   Content_Type => "text/plain",
-                  Message_Body => Ada.Exceptions.Exception_Message (E));
+                  Message_Body => Exception_Message (E));
 
             elsif
               Exception_Identity (E) =
@@ -340,13 +338,13 @@ begin
                Error_Answer := Response.Build
                  (Status_Code  => Messages.S403,
                   Content_Type => "text/plain",
-                  Message_Body => Ada.Exceptions.Exception_Message (E));
+                  Message_Body => Exception_Message (E));
 
             else
                Error_Answer := Response.Build
                  (Status_Code  => Messages.S400,
                   Content_Type => "text/plain",
-                  Message_Body => Ada.Exceptions.Exception_Message (E));
+                  Message_Body => Exception_Message (E));
             end if;
 
             LA.Server.Slots.Mark_Phase (LA.Line, Server_Response);