Revision 346c3037 test/hs/Test/Ganeti/Luxi.hs

b/test/hs/Test/Ganeti/Luxi.hs
77 77 
        kind <- arbitrary
78 78 
        Luxi.QueryTags kind <$> genLuxiTagName kind
79 79 
      Luxi.ReqSubmitJob -> Luxi.SubmitJob <$> resize maxOpCodes arbitrary
80 
      Luxi.ReqSubmitJobToDrainedQueue -> Luxi.SubmitJobToDrainedQueue <$>
81 
                                         resize maxOpCodes arbitrary
80 82 
      Luxi.ReqSubmitManyJobs -> Luxi.SubmitManyJobs <$>
81 83 
                                resize maxOpCodes arbitrary
82 84 
      Luxi.ReqWaitForJobChange -> Luxi.WaitForJobChange <$> arbitrary <*>

Also available in: Unified diff