Revision b69be409 htools/Ganeti/OpCodes.hs
b/htools/Ganeti/OpCodes.hs | ||
---|---|---|
32 | 32 |
) where |
33 | 33 |
|
34 | 34 |
import Text.JSON (readJSON, showJSON, makeObj, JSON) |
35 |
import qualified Text.JSON as J |
|
36 | 35 |
|
37 | 36 |
import qualified Ganeti.Constants as C |
38 | 37 |
import Ganeti.THH |
39 | 38 |
|
40 |
import Ganeti.HTools.Utils
|
|
39 |
import Ganeti.HTools.JSON
|
|
41 | 40 |
|
42 | 41 |
-- | Replace disks type. |
43 | 42 |
$(declareSADT "ReplaceDisksMode" |
Also available in: Unified diff