From: Michal Malý <madcatxster@devoid-pointer.net>
Date: Tue, 16 Dec 2014 13:18:59 +0000 (+0100)
Subject: - Do not wait for Q key
X-Git-Url: https://gitweb.devoid-pointer.net/?a=commitdiff_plain;h=b7f60ef57c4b4297fe85ecb7813ce3df0d1ad548;p=Nine-Q.git

- 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 3063221..361c016 100644
--- 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;