Revision 9fd653a4 src/Ganeti/JQueue.hs

b/src/Ganeti/JQueue.hs
49 49 
    , allocateJobIds
50 50 
    , allocateJobId
51 51 
    , writeJobToDisk
52 
    , replicateJob
52 
    , replicateManyJobs
53 53 
    , isQueueOpen
54 54 
    ) where
55 55 

  		





  ......




  359
  359
  
    
  logRpcErrors result


  		





  360
  360
  
    
  return result


  		





  361
  361
  
    

  		





  
  362
  
    
-- | Replicate many jobs to all master candidates.


  		





  
  363
  
    
replicateManyJobs :: FilePath -> [Node] -> [QueuedJob] -> IO ()


  		





  
  364
  
    
replicateManyJobs rootdir mastercandidates =


  		





  
  365
  
    
  mapM_ (replicateJob rootdir mastercandidates)


  		





  
  366
  
    

  		





  362
  367
  
    
-- | Read the job serial number from disk.


  		





  363
  368
  
    
readSerialFromDisk :: IO (Result JobId)


  		





  364
  369
  
    
readSerialFromDisk = do


  		












Also available in:
  Unified diff