Revision 72295708 htools/Ganeti/HTools/QC.hs

b/htools/Ganeti/HTools/QC.hs
1954 1954 
    lreq <- arbitrary
1955 1955 
    case lreq of
1956 1956 
      Luxi.ReqQuery -> Luxi.Query <$> arbitrary <*> getFields <*> genFilter
1957 
      Luxi.ReqQueryFields -> Luxi.QueryFields <$> arbitrary <*> getFields
1957 1958 
      Luxi.ReqQueryNodes -> Luxi.QueryNodes <$> (listOf getFQDN) <*>
1958 1959 
                            getFields <*> arbitrary
1959 1960 
      Luxi.ReqQueryGroups -> Luxi.QueryGroups <$> arbitrary <*>

Also available in: Unified diff