Revision da4a52a3 src/Ganeti/HTools/Program/Harep.hs

b/src/Ganeti/HTools/Program/Harep.hs
292 292 
         Just (
293 293 
           ArReinstall,
294 294 
           [ OpInstanceRecreateDisks { opInstanceName = iname
295 
                                     , opInstanceUuid = Nothing
295 296 
                                     , opRecreateDisksInfo = RecreateDisksAll
296 297 
                                     , opNodes = []
297 298 
                                       -- FIXME: there should be a better way to
......
303 304 
                                     , opIallocator = mkNonEmpty "hail"
304 305 
                                     }
305 306 
           , OpInstanceReinstall { opInstanceName = iname
307 
                                 , opInstanceUuid = Nothing
306 308 
                                 , opOsType = Nothing
307 309 
                                 , opTempOsParams = Nothing
308 310 
                                 , opForceVariant = False
......
312 314 
         Just (
313 315 
           ArFailover,
314 316 
           [ OpInstanceFailover { opInstanceName = iname
317 
                                , opInstanceUuid = Nothing
315 318 
                                  -- FIXME: ditto, see above.
316 319 
                                , opShutdownTimeout = fromJust $ mkNonNegative
317 320 
                                                      C.defaultShutdownTimeout
......
326 329 
         Just (
327 330 
           ArFixStorage,
328 331 
           [ OpInstanceReplaceDisks { opInstanceName = iname
332 
                                    , opInstanceUuid = Nothing
329 333 
                                    , opReplaceDisksMode = ReplaceNewSecondary
330 334 
                                    , opReplaceDisksList = []
331 335 
                                    , opRemoteNode = Nothing
......
343 347 
         Just (
344 348 
           ArReinstall,
345 349 
           [ OpInstanceRecreateDisks { opInstanceName = iname
350 
                                     , opInstanceUuid = Nothing
346 351 
                                     , opRecreateDisksInfo = RecreateDisksAll
347 352 
                                     , opNodes = []
348 353 
                                       -- FIXME: ditto, see above.
......
350 355 
                                     , opIallocator = mkNonEmpty "hail"
351 356 
                                     }
352 357 
           , OpInstanceReinstall { opInstanceName = iname
358 
                                 , opInstanceUuid = Nothing
353 359 
                                 , opOsType = Nothing
354 360 
                                 , opTempOsParams = Nothing
355 361 
                                 , opForceVariant = False

Also available in: Unified diff