                   (let [response-key (get-selection-name field)
                         ;; field-type (get-field-type-from-object-type parent-type field)
                         ;; resolved-object (resolve-field-on-object field-type root-value field)
-                        field-entry (get-field-entry type-meta-fn parent-type root-value field)]
+                        field-entry (get-field-entry type-meta-fn parent-type root-value field fragments)]
                     (log/spy field-entry)))
                 fields)))
 

(defn collect-fields
  "CollectFields(objectType, selectionSet, visitedFragments)"
  [object-type selection-set fragments]
  (reduce (collect-selection-fn fragments) [] selection-set))

(comment ; Type kind
  :SCALAR

(declare execute-fields)

(defn complete-value
  [type-meta-fn field-type result sub-selection-set fragments]
  (log/debug "*** complete-value: ")
  (log/debug "field-type: " field-type)
  (log/debug "result: " result)
