Revision 7295a6dc

b/src/Ganeti/OpParams.hs
337 337 
  , optionalField $ simpleField C.inicMode   [t| NonEmptyString |]
338 338 
  , optionalField $ simpleField C.inicLink   [t| NonEmptyString |]
339 339 
  , optionalField $ simpleField C.inicName   [t| NonEmptyString |]
340 
  , optionalField $ simpleField C.inicVlan   [t| NonEmptyString |]
340 
  , optionalField $ simpleField C.inicVlan   [t| String         |]
341 341 
  , optionalField $ simpleField C.inicBridge [t| NonEmptyString |]
342 342 
  ])
343 343 

  		












  

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






  88
  88
  
    
instance Arbitrary INicParams where


  		





  89
  89
  
    
  arbitrary = INicParams <$> genMaybe genNameNE <*> genMaybe genName <*>


  		





  90
  90
  
    
              genMaybe genNameNE <*> genMaybe genNameNE <*>


  		





  91
  
  
    
              genMaybe genNameNE <*> genMaybe genNameNE <*>


  		





  
  91
  
    
              genMaybe genNameNE <*> genMaybe genName <*>


  		





  92
  92
  
    
              genMaybe genNameNE


  		





  93
  93
  
    

  		





  94
  94
  
    
instance Arbitrary IDiskParams where


  		












Also available in:
  Unified diff