Synnefo » snf-ganeti

          serial <- jobQueueSerialFile

          write_result <- try $ atomicWriteFile serial serial_content

                          :: IO (Either IOError ())

          case write_result of

            Left e -> do

              let msg = "Failed to write serial file: " ++ show e

              logError msg

              return . Bad $ msg 

            Right () -> do

              _ <- executeRpcCall mastercandidates

                     $ RpcCallJobqueueUpdate serial serial_content

              return $ mapM makeJobId [(current+1)..(current+n)]

-- | Allocate one new job id.