Revision 95c0c0bc

b/src/Ganeti/OpCodes.hs
435 435 
     , pWaitForSync
436 436 
     , pOffline
437 437 
     , pIpConflictsCheck
438 
     , pHotplug
438 439 
     ])
439 440 
  , ("OpInstanceGrowDisk",
440 441 
     [ pInstanceName
b/src/Ganeti/OpParams.hs
99 99 
  , pHvState
100 100 
  , pDiskState
101 101 
  , pIgnoreIpolicy
102 
  , pHotplug
102 103 
  , pAllowRuntimeChgs
103 104 
  , pInstDisks
104 105 
  , pDiskTemplate
......
752 753 
pIgnoreIpolicy :: Field
753 754 
pIgnoreIpolicy = defaultFalse "ignore_ipolicy"
754 755 

  		





  
  756
  
    
-- | Whether to hotplug device.


  		





  
  757
  
    
pHotplug :: Field


  		





  
  758
  
    
pHotplug = defaultFalse "hotplug"


  		





  
  759
  
    

  		





  755
  760
  
    
-- | Allow runtime changes while migrating.


  		





  756
  761
  
    
pAllowRuntimeChgs :: Field


  		





  757
  762
  
    
pAllowRuntimeChgs = defaultTrue "allow_runtime_changes"


  		












  

    
      b/test/hs/Test/Ganeti/OpCodes.hs
    
  






  277
  277
  
    
          pure emptyJSObject <*> arbitrary <*> genMaybe genNodeNameNE <*>


  		





  278
  278
  
    
          return Nothing <*> genMaybe genNodeNameNE <*> return Nothing <*>


  		





  279
  279
  
    
          genMaybe genNameNE <*> pure emptyJSObject <*> arbitrary <*>


  		





  280
  
  
    
          arbitrary <*> arbitrary


  		





  
  280
  
    
          arbitrary <*> arbitrary <*> arbitrary


  		





  281
  281
  
    
      "OP_INSTANCE_GROW_DISK" ->


  		





  282
  282
  
    
        OpCodes.OpInstanceGrowDisk <$> genFQDN <*> return Nothing <*>


  		





  283
  283
  
    
          arbitrary <*> arbitrary <*> arbitrary <*> arbitrary


  		












Also available in:
  Unified diff