Revision 795d035d test/hs/Test/Ganeti/Luxi.hs

b/test/hs/Test/Ganeti/Luxi.hs
64 64 
                            genFields <*> arbitrary
65 65 
      Luxi.ReqQueryGroups -> Luxi.QueryGroups <$> arbitrary <*>
66 66 
                             arbitrary <*> arbitrary
67 
      Luxi.ReqQueryNetworks -> Luxi.QueryNetworks <$> arbitrary <*>
68 
                             arbitrary <*> arbitrary
67 69 
      Luxi.ReqQueryInstances -> Luxi.QueryInstances <$> listOf genFQDN <*>
68 70 
                                genFields <*> arbitrary
69 71 
      Luxi.ReqQueryJobs -> Luxi.QueryJobs <$> arbitrary <*> genFields

Also available in: Unified diff