Revision 6bc39970 Ganeti/OpCodes.hs
| b/Ganeti/OpCodes.hs | ||
|---|---|---|
| 4 | 4 |
|
| 5 | 5 |
{-
|
| 6 | 6 |
|
| 7 |
Copyright (C) 2009 Google Inc. |
|
| 7 |
Copyright (C) 2009, 2010 Google Inc.
|
|
| 8 | 8 |
|
| 9 | 9 |
This program is free software; you can redistribute it and/or modify |
| 10 | 10 |
it under the terms of the GNU General Public License as published by |
| ... | ... | |
| 40 | 40 |
| ReplaceOnSecondary |
| 41 | 41 |
| ReplaceNewSecondary |
| 42 | 42 |
| ReplaceAuto |
| 43 |
deriving (Show, Eq) |
|
| 43 |
deriving (Show, Read, Eq)
|
|
| 44 | 44 |
|
| 45 | 45 |
instance JSON ReplaceDisksMode where |
| 46 | 46 |
showJSON m = case m of |
| ... | ... | |
| 60 | 60 |
[Int] (Maybe String) |
| 61 | 61 |
| OpFailoverInstance String Bool |
| 62 | 62 |
| OpMigrateInstance String Bool Bool |
| 63 |
deriving (Show, Eq) |
|
| 63 |
deriving (Show, Read, Eq)
|
|
| 64 | 64 |
|
| 65 | 65 |
|
| 66 | 66 |
opID :: OpCode -> String |
Also available in: Unified diff