Revision e247747c

b/src/Ganeti/HTools/CLI.hs
8 8

  
9 9
{-
10 10

  
11
Copyright (C) 2009, 2010, 2011, 2012 Google Inc.
11
Copyright (C) 2009, 2010, 2011, 2012, 2013 Google Inc.
12 12

  
13 13
This program is free software; you can redistribute it and/or modify
14 14
it under the terms of the GNU General Public License as published by
......
82 82
  , oStdSpec
83 83
  , oTieredSpec
84 84
  , oVerbose
85
  , oPriority
85 86
  , genericOpts
86 87
  ) where
87 88

  
......
98 99
import Ganeti.HTools.Types
99 100
import Ganeti.BasicTypes
100 101
import Ganeti.Common as Common
102
import Ganeti.Types
101 103
import Ganeti.Utils
102 104

  
103 105
-- * Data types
......
143 145
  , optTieredSpec  :: Maybe RSpec    -- ^ Requested specs for tiered mode
144 146
  , optReplay      :: Maybe String   -- ^ Unittests: RNG state
145 147
  , optVerbose     :: Int            -- ^ Verbosity level
148
  , optPriority    :: Maybe OpSubmitPriority -- ^ OpCode submit priority
146 149
  } deriving Show
147 150

  
148 151
-- | Default values for the command line options.
......
187 190
  , optTieredSpec  = Nothing
188 191
  , optReplay      = Nothing
189 192
  , optVerbose     = 1
193
  , optPriority    = Nothing
190 194
  }
191 195

  
192 196
-- | Abbreviation for the option type.
......
518 522
   "increase the verbosity level",
519 523
   OptComplNone)
520 524

  
525
oPriority :: OptType
526
oPriority =
527
  (Option "" ["priority"]
528
   (ReqArg (\ inp opts -> do
529
              prio <- parseSubmitPriority inp
530
              Ok opts { optPriority = Just prio }) "PRIO")
531
   "set the priority of submitted jobs",
532
    OptComplChoices (map fmtSubmitPriority [minBound..maxBound]))
533

  
521 534
-- | Generic options.
522 535
genericOpts :: [GenericOptType Options]
523 536
genericOpts =  [ oShowVer

Also available in: Unified diff