Commit 21a6f27c authored by Klaus Aehlig's avatar Klaus Aehlig

Fix name of filter-evaluation function

Signed-off-by: default avatarKlaus Aehlig <aehlig@google.com>
Reviewed-by: default avatarPetr Pudlak <pudlak@google.com>
parent 72880fb4
......@@ -228,14 +228,14 @@ genericQuery fieldsMap collector nameFn configFn getFn cfg
-- Run the first pass of the filter, without a runtime context; this will
-- limit the objects that we'll contact for exports
fobjects <- toError $
filterM (\n -> evaluateQueryFilter cfg Nothing n cfilter) objects
filterM (\n -> evaluateFilter cfg Nothing n cfilter) objects
-- Gather the runtime data and filter the results again,
-- based on the gathered data
runtimes <- (case collector of
CollectorSimple collFn -> lift $ collFn live' cfg fobjects
CollectorFieldAware collFn -> lift $ collFn live' cfg fields fobjects) >>=
(toError . filterM (\(obj, runtime) ->
evaluateQueryFilter cfg (Just runtime) obj cfilter))
evaluateFilter cfg (Just runtime) obj cfilter))
let fdata = map (\(obj, runtime) ->
map (execGetter cfg runtime obj) fgetters)
runtimes
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment