                                       value-counts))
       base-node)))
 
-;; :value-counts [["Larc" 3] ["Dist" 1] ["GSFC" 1] ["Proc" 1]]
 (defn create-v2-facets
   "Create the facets v2 response. Takes an elastic aggregations result and returns the facets."
   [elastic-aggregations]
-  (println "Elastic aggregations response" elastic-aggregations)
   (let [flat-fields [:data-center :project :platform :instrument :processing-level-id]
         hierarchical-fields [:science-keywords]
         facets (concat (flat-bucket-map->facets-v2

  (:require [cmr.common-app.services.search.query-execution :as query-execution]
            [cmr.common-app.services.kms-fetcher :as kms-fetcher]
            [cmr.search.services.query-execution.facets-results-feature :as frf]
            [camel-snake-kebab.core :as csk]))


(def UNLIMITED_TERMS_SIZE

  names. Returns a facet map of those specific names with value count pairs"
  [bucket-map field-names]
  (for [field-name field-names
        :let [value-counts (frf/buckets->value-count-pairs (field-name bucket-map))
              has-children (some? (seq value-counts))
              base-node {:title (field-name fields->human-readable-label)
                         :type :group
                         ;; TODO with another ticket
                         ;  :applied ;; either true or false
                         :has_children has-children}]]
    (if has-children
      (assoc base-node :children (map (fn [[term count]]
                                        {:title term
