Revision e19ee6e4 htools/Ganeti/HTools/CLI.hs

b/htools/Ganeti/HTools/CLI.hs
61 61 
    , oNoHeaders
62 62 
    , oNodeSim
63 63 
    , oOfflineNode
64 
    , oOneline
65 64 
    , oOutputDir
66 65 
    , oPrintCommands
67 66 
    , oPrintInsts
......
127 126 
    , optNoHeaders   :: Bool           -- ^ Do not show a header line
128 127 
    , optNodeSim     :: [String]       -- ^ Cluster simulation mode
129 128 
    , optOffline     :: [String]       -- ^ Names of offline nodes
130 
    , optOneline     :: Bool           -- ^ Switch output to a single line
131 129 
    , optOutPath     :: FilePath       -- ^ Path to the output directory
132 130 
    , optSaveCluster :: Maybe FilePath -- ^ Save cluster state to this file
133 131 
    , optShowCmds    :: Maybe FilePath -- ^ Whether to show the command list
......
167 165 
 , optNoHeaders   = False
168 166 
 , optNodeSim     = []
169 167 
 , optOffline     = []
170 
 , optOneline     = False
171 168 
 , optOutPath     = "."
172 169 
 , optSaveCluster = Nothing
173 170 
 , optShowCmds    = Nothing
......
337 334 
               (ReqArg (\ n o -> Ok o { optOffline = n:optOffline o }) "NODE")
338 335 
               "set node as offline"
339 336 

  		





  340
  
  
    
oOneline :: OptType


  		





  341
  
  
    
oOneline = Option "o" ["oneline"]


  		





  342
  
  
    
           (NoArg (\ opts -> Ok opts { optOneline = True }))


  		





  343
  
  
    
           "print the ganeti command list for reaching the solution"


  		





  344
  
  
    

  		





  345
  337
  
    
oOutputDir :: OptType


  		





  346
  338
  
    
oOutputDir = Option "d" ["output-dir"]


  		





  347
  339
  
    
             (ReqArg (\ d opts -> Ok opts { optOutPath = d }) "PATH")


  		












Also available in:
  Unified diff