Revision 22278fa7 htools/Ganeti/HTools/Program/Hinfo.hs

b/htools/Ganeti/HTools/Program/Hinfo.hs
23 23 

  		





  24
  24
  
    
-}


  		





  25
  25
  
    

  		





  26
  
  
    
module Ganeti.HTools.Program.Hinfo (main, options) where


  		





  
  26
  
    
module Ganeti.HTools.Program.Hinfo


  		





  
  27
  
    
  ( main


  		





  
  28
  
    
  , options


  		





  
  29
  
    
  , arguments


  		





  
  30
  
    
  ) where


  		





  27
  31
  
    

  		





  28
  32
  
    
import Control.Monad


  		





  29
  33
  
    
import Data.List


  		





  ......




  38
  42
  
    
import qualified Ganeti.HTools.Group as Group


  		





  39
  43
  
    
import qualified Ganeti.HTools.Instance as Instance


  		





  40
  44
  
    

  		





  
  45
  
    
import Ganeti.Common


  		





  41
  46
  
    
import Ganeti.HTools.CLI


  		





  42
  47
  
    
import Ganeti.HTools.ExtLoader


  		





  43
  48
  
    
import Ganeti.HTools.Loader


  		





  ......




  57
  62
  
    
  , oOfflineNode


  		





  58
  63
  
    
  ]


  		





  59
  64
  
    

  		





  
  65
  
    
-- | The list of arguments supported by the program.


  		





  
  66
  
    
arguments :: [ArgCompletion]


  		





  
  67
  
    
arguments = []


  		





  
  68
  
    

  		





  60
  69
  
    
-- | Group information data-type.


  		





  61
  70
  
    
data GroupInfo = GroupInfo { giName      :: String


  		





  62
  71
  
    
                           , giNodeCount :: Int


  		












Also available in:
  Unified diff