Synnefo » snf-ganeti

                      Ok ne -> Just ne

      opF = OpCodes.OpInstanceMigrate

              { OpCodes.opInstanceName        = iname

              , OpCodes.opMigrationMode       = Nothing -- default

              , OpCodes.opOldLiveMode         = Nothing -- default as well

              , OpCodes.opTargetNode          = Nothing -- this is drbd

      opFA n = opF { OpCodes.opTargetNode = lookNode n } -- not drbd

      opR n = OpCodes.OpInstanceReplaceDisks

                { OpCodes.opInstanceName     = iname

                , OpCodes.opEarlyRelease     = False

                , OpCodes.opIgnoreIpolicy    = False

                , OpCodes.opReplaceDisksMode = OpCodes.ReplaceNewSecondary