Revision 551b44e2 src/Ganeti/OpCodes.hs
b/src/Ganeti/OpCodes.hs | ||
---|---|---|
6 | 6 |
|
7 | 7 |
{- |
8 | 8 |
|
9 |
Copyright (C) 2009, 2010, 2011, 2012 Google Inc. |
|
9 |
Copyright (C) 2009, 2010, 2011, 2012, 2013 Google Inc.
|
|
10 | 10 |
|
11 | 11 |
This program is free software; you can redistribute it and/or modify |
12 | 12 |
it under the terms of the GNU General Public License as published by |
... | ... | |
44 | 44 |
, MetaOpCode(..) |
45 | 45 |
, wrapOpCode |
46 | 46 |
, setOpComment |
47 |
, setOpPriority |
|
47 | 48 |
) where |
48 | 49 |
|
49 | 50 |
import Data.Maybe (fromMaybe) |
... | ... | |
667 | 668 |
setOpComment :: String -> MetaOpCode -> MetaOpCode |
668 | 669 |
setOpComment comment (MetaOpCode common op) = |
669 | 670 |
MetaOpCode (common { opComment = Just comment}) op |
671 |
|
|
672 |
-- | Sets the priority on a meta opcode. |
|
673 |
setOpPriority :: OpSubmitPriority -> MetaOpCode -> MetaOpCode |
|
674 |
setOpPriority prio (MetaOpCode common op) = |
|
675 |
MetaOpCode (common { opPriority = prio }) op |
Also available in: Unified diff