Revision 509809db htools/Ganeti/HTools/CLI.hs

b/htools/Ganeti/HTools/CLI.hs
67 67
    , oPrintNodes
68 68
    , oQuiet
69 69
    , oRapiMaster
70
    , oReplay
70 71
    , oSaveCluster
71 72
    , oShowHelp
72 73
    , oShowVer
......
126 127
    , optShowNodes   :: Maybe [String] -- ^ Whether to show node status
127 128
    , optShowVer     :: Bool           -- ^ Just show the program version
128 129
    , optTieredSpec  :: Maybe RSpec    -- ^ Requested specs for tiered mode
130
    , optReplay      :: Maybe String   -- ^ Unittests: RNG state
129 131
    , optVerbose     :: Int            -- ^ Verbosity level
130 132
    } deriving Show
131 133

  
......
164 166
 , optShowNodes   = Nothing
165 167
 , optShowVer     = False
166 168
 , optTieredSpec  = Nothing
169
 , optReplay      = Nothing
167 170
 , optVerbose     = 1
168 171
 }
169 172

  
......
381 384
              "TSPEC")
382 385
             "enable tiered specs allocation, given as 'disk,ram,cpu'"
383 386

  
387
oReplay :: OptType
388
oReplay = Option "" ["replay"]
389
          (ReqArg (\ stat opts -> Ok opts { optReplay = Just stat } ) "STATE")
390
          "Pre-seed the random number generator with STATE"
391

  
384 392
oVerbose :: OptType
385 393
oVerbose = Option "v" ["verbose"]
386 394
           (NoArg (\ opts -> Ok opts { optVerbose = optVerbose opts + 1 }))

Also available in: Unified diff