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