LGTM, thanks
On Mon, Dec 16, 2013 at 9:16 PM, Klaus Aehlig <[email protected]> wrote: > Support the query for the fields available for instances. > > Signed-off-by: Klaus Aehlig <[email protected]> > --- > src/Ganeti/Query/Query.hs | 4 ++++ > 1 file changed, 4 insertions(+) > > diff --git a/src/Ganeti/Query/Query.hs b/src/Ganeti/Query/Query.hs > index c86ce54..332f2d5 100644 > --- a/src/Ganeti/Query/Query.hs > +++ b/src/Ganeti/Query/Query.hs > @@ -338,6 +338,10 @@ queryFields (QueryFields (ItemTypeLuxi QRJob) fields) > = > queryFields (QueryFields (ItemTypeOpCode QRExport) fields) = > Ok $ fieldsExtractor Export.fieldsMap fields > > +queryFields (QueryFields (ItemTypeOpCode QRInstance) fields) = > + Ok $ fieldsExtractor Instance.fieldsMap fields > + > + > queryFields (QueryFields qkind _) = > Bad . GenericError $ "QueryFields '" ++ show qkind ++ "' not supported" > > -- > 1.8.5.1 > >
