Remove duplicate calls to On_Close and Shutdown.

Both routines are called as part of WebSocket_Exception.

Continued work for U504-028.

Author: TurboGit

src/core/aws-net-websocket-registry.adb

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                              Ada Web Server                              --
 --                                                                          --
---                     Copyright (C) 2012-2019, 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  --
@@ -371,7 +371,6 @@ package body AWS.Net.WebSocket.Registry is
                   Do_Unregister (WS);
                   WebSocket_Exception
                     (WS, Exception_Message (E), Protocol_Error);
-                  WS.On_Close (Exception_Message (E));
                   WS.Shutdown;
                end;
          end;
@@ -917,7 +916,6 @@ package body AWS.Net.WebSocket.Registry is
                              (WS, Exception_Message (E), Protocol_Error);
 
                            WS.Close (Exception_Message (E), Going_Away);
-                           WS.On_Close (Exception_Message (E));
 
                            --  No more data to send from this socket
                            Pending := 0;
@@ -977,7 +975,6 @@ package body AWS.Net.WebSocket.Registry is
                         WebSocket_Exception
                           (WebSocket, Exception_Message (E), Protocol_Error);
 
-                        WebSocket.On_Close (Exception_Message (E));
                         WebSocket.Close (Exception_Message (E), Going_Away);
                   end;