Revision 0808e9d5

b/src/Ganeti/Query/Instance.hs
741 741 
getAllConsoleParams cfg = mapM $ \i ->
742 742 
  InstanceConsoleInfoParams i
743 743 
    <$> getPrimaryNode cfg i
744 
    <*> getPrimaryNodeGroup cfg i
744 745 
    <*> pure (getFilledInstHvParams [] cfg i)
745 746 
    <*> getFilledInstBeParams cfg i
746 747 

  		












  

    
      b/src/Ganeti/Rpc.hs
    
  






  348
  348
  
    
$(buildObject "InstanceConsoleInfoParams" "instConsInfoParams"


  		





  349
  349
  
    
  [ simpleField "instance"    [t| Instance |]


  		





  350
  350
  
    
  , simpleField "node"        [t| Node |]


  		





  
  351
  
    
  , simpleField "group"       [t| NodeGroup |]


  		





  351
  352
  
    
  , simpleField "hvParams"    [t| HvParams |]


  		





  352
  353
  
    
  , simpleField "beParams"    [t| FilledBeParams |]


  		





  353
  354
  
    
  ])


  		












  

    
      b/test/hs/Test/Ganeti/Rpc.hs
    
  






  102
  102
  
    
-- object, node object, 'HvParams', and 'FilledBeParams'.


  		





  103
  103
  
    
genInstanceConsoleInfoParams :: Gen Rpc.InstanceConsoleInfoParams


  		





  104
  104
  
    
genInstanceConsoleInfoParams = Rpc.InstanceConsoleInfoParams <$>


  		





  105
  
  
    
  genInst <*> arbitrary <*> genHvParams <*> arbitrary


  		





  
  105
  
    
  genInst <*> arbitrary <*> arbitrary <*> genHvParams <*> arbitrary


  		





  106
  106
  
    

  		





  107
  107
  
    
-- | Monadic check that, for an offline node and a call that does not support


  		





  108
  108
  
    
-- offline nodes, we get a OfflineNodeError response.


  		












Also available in:
  Unified diff