Revision c5a957c3 src/Ganeti/Hypervisor/Xen/Types.hs

b/src/Ganeti/Hypervisor/Xen/Types.hs
26 26 
  ( LispConfig(..)
27 27 
  , Domain(..)
28 28 
  , FromLispConfig(..)
29 
  , UptimeInfo(..)
29 30 
  , ActualState(..)
30 31 
  ) where
31 32 

  		





  ......




  84
  85
  
    
    Bad $ "Unable to extract a List from this configuration: "


  		





  85
  86
  
    
      ++ show c


  		





  86
  87
  
    

  		





  
  88
  
    
-- Data type representing the information that can be obtained from @xm uptime@


  		





  
  89
  
    
data UptimeInfo = UptimeInfo


  		





  
  90
  
    
  { uInfoName   :: String


  		





  
  91
  
    
  , uInfoID     :: Int


  		





  
  92
  
    
  , uInfoUptime :: String


  		





  
  93
  
    
  } deriving (Eq, Show)


  		





  
  94
  
    

  		





  87
  95
  
    
data ActualState = ActualRunning  -- ^ The instance is running


  		





  88
  96
  
    
                 | ActualBlocked  -- ^ The instance is not running or runnable


  		





  89
  97
  
    
                 | ActualPaused   -- ^ The instance has been paused


  		












Also available in:
  Unified diff