- Do not wait for Q key

- Do not report that the server has been started

diff --git a/src/nine_q.adb b/src/nine_q.adb
index 30632211d2bdb49f1e2651ad5b7c9951a592ffeb..361c016ed1c952cb53e9bf7ac93b75532a3b5125 100644 (file)
--- a/src/nine_q.adb
+++ b/src/nine_q.adb
@@ -1,5 +1,3 @@
-with Ada.Text_IO;
-
 with AWS.Config;
 with AWS.Config.Set;
 with AWS.Server;
@@ -18,12 +16,11 @@ begin
   AWS.Config.Set.Session_Lifetime(1800.0);
   AWS.Config.Set.Session_Cleanup_Interval(3600.0);
 
-  Ada.Text_IO.Put_Line("Starting server...");
   AWS.Server.Start(Web_Server => Web_Server,
                   Dispatcher => Handlers.Get_Dispatchers,
                   Config => Server_Config);
 
-  AWS.Server.Wait(AWS.Server.Q_Key_Pressed);
+  AWS.Server.Wait(AWS.Server.Forever);
   AWS.Server.Shutdown(Web_Server);
 
 end Nine_Q;