Fix startup order of luxid

Move the starting of the job scheduler to a later stage
in the startup. In particular, only start it after the
job-queue lock file is obtained.
Signed-off-by: Klaus Aehlig <aehlig@google.com>
Reviewed-by: Petr Pudlak <pudlak@google.com>

src/Ganeti/Query/Server.hs

@@ -468,7 +468,6 @@ main :: MainFn () PrepResult
 main _ _ (server, cref, jq) = do
   initConfigReader id cref
   let creader = readIORef cref
-  initJQScheduler jq
 
   qlockFile <- jobQueueLockFile
   _ <- lockFile qlockFile >>= exitIfBad "Failed to obtain the job-queue lock"
@@ -478,6 +477,8 @@ main _ _ (server, cref, jq) = do
 
   _ <- forkIO . void $ activateMasterIP
 
+  initJQScheduler jq
+
   finally
     (forever $ U.listener (luxiHandler (qlock, jq, creader)) server)
     (closeServer server)