Revision 139c0683 htools/Ganeti/Objects.hs
| b/htools/Ganeti/Objects.hs | ||
|---|---|---|
| 216 | 216 |
| LIDFile FileDriver String -- ^ Driver, path |
| 217 | 217 |
| LIDBlockDev BlockDriver String -- ^ Driver, path (must be under /dev) |
| 218 | 218 |
| LIDRados String String -- ^ Unused, path |
| 219 |
deriving (Read, Show, Eq)
|
|
| 219 |
deriving (Show, Eq) |
|
| 220 | 220 |
|
| 221 | 221 |
-- | Mapping from a logical id to a disk type. |
| 222 | 222 |
lidDiskType :: DiskLogicalId -> DiskType |
| ... | ... | |
| 302 | 302 |
, diskIvName :: String |
| 303 | 303 |
, diskSize :: Int |
| 304 | 304 |
, diskMode :: DiskMode |
| 305 |
} deriving (Read, Show, Eq)
|
|
| 305 |
} deriving (Show, Eq) |
|
| 306 | 306 |
|
| 307 | 307 |
$(buildObjectSerialisation "Disk" |
| 308 | 308 |
[ customField 'decodeDLId 'encodeFullDLId $ |
Also available in: Unified diff