                                 (.state custard)
                                 c/work-items)
                        [])]
-    {:value (mapv #(select-keys % query) work-items)}))
+    {:value (mapv #(select-keys % (extract-keys query))
+                  work-items)}))
 
 (defmethod readf :tags
   [{:keys [custard query]} _ {:keys [state]}]

                                  (.state custard)
                                  c/requirements)
                         [])]
    {:value (mapv #(select-keys % query) requirements)}))

(defmethod readf :components
  [{:keys [custard query]} _ {:keys [state]}]

                                (.state custard)
                                c/components)
                         [])]
    {:value (mapv #(select-keys % (extract-keys query))
                  components)}))

(defmethod readf :work-items
  [{:keys [custard query]} _ {:keys [state]}]
