Revision fafd0773 htools/Ganeti/HTools/Instance.hs
| b/htools/Ganeti/HTools/Instance.hs | ||
|---|---|---|
| 54 | 54 |
, requiredNodes |
| 55 | 55 |
, allNodes |
| 56 | 56 |
, usesLocalStorage |
| 57 |
, mirrorType |
|
| 57 | 58 |
) where |
| 58 | 59 |
|
| 59 | 60 |
import qualified Ganeti.HTools.Types as T |
| ... | ... | |
| 304 | 305 |
-- | Checks whether a given disk template supported moves. |
| 305 | 306 |
supportsMoves :: T.DiskTemplate -> Bool |
| 306 | 307 |
supportsMoves = (`elem` movableDiskTemplates) |
| 308 |
|
|
| 309 |
-- | A simple wrapper over 'T.templateMirrorType'. |
|
| 310 |
mirrorType :: Instance -> T.MirrorType |
|
| 311 |
mirrorType = T.templateMirrorType . diskTemplate |
|
Also available in: Unified diff