Synnefo » snf-ganeti

import Ganeti.THH

import Ganeti.Types

import Ganeti.Utils

-- * Data types

replicateJob rootdir mastercandidates job = do

  let filename = liveJobFile rootdir . qjId $ job

      content = Text.JSON.encode . Text.JSON.showJSON $ job

  callresult <- executeRpcCall mastercandidates

  let result = map (second (() <$)) callresult

  logRpcErrors result

  return result

              logError msg

              return . Bad $ msg 

            Right () -> do

              _ <- executeRpcCall mastercandidates

              putMVar lock ()

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