Revision 9a94c848 htools/Ganeti/HTools/QC.hs

b/htools/Ganeti/HTools/QC.hs
1854 1854 
  arbitrary = do
1855 1855 
    lreq <- arbitrary
1856 1856 
    case lreq of
1857 
      Luxi.ReqQuery -> Luxi.Query <$> arbitrary <*> getFields <*> arbitrary
1857 
      Luxi.ReqQuery -> Luxi.Query <$> arbitrary <*> getFields <*> genFilter
1858 1858 
      Luxi.ReqQueryNodes -> Luxi.QueryNodes <$> (listOf getFQDN) <*>
1859 1859 
                            getFields <*> arbitrary
1860 1860 
      Luxi.ReqQueryGroups -> Luxi.QueryGroups <$> arbitrary <*>

Also available in: Unified diff