Synnefo » snf-ganeti

import Ganeti.Rpc (executeRpcCall, ERpcError, logRpcErrors,

                   RpcCallJobqueueUpdate(..), RpcCallJobqueueRename(..))

import Ganeti.THH

import Ganeti.Types

import Ganeti.Utils

import Ganeti.Utils.Atomic

import Ganeti.VCluster (makeVirtualPath)

-- * Data types

    simpleField "start_timestamp"    [t| Timestamp      |]

  , optionalNullSerField $

    simpleField "end_timestamp"      [t| Timestamp      |]

  ])

-- | Convenience function to obtain a QueuedOpCode from a MetaOpCode

                   , qjReceivedTimestamp = Nothing

                   , qjStartTimestamp = Nothing

                   , qjEndTimestamp = Nothing

                   }

-- | Attach a received timestamp to a Queued Job.