 
 (defn fix-serf-project
   [project]
-  (-> project
-      (assoc :EndDate nil :StartDate nil :Campaigns nil)))
+  (assoc project :EndDate nil :StartDate nil :Campaigns nil))
 
 (defn fix-metadata-associations
   [metadata-association]


(defn- expected-related-urls-for-serf-party
  [related-urls]
  (seq 
    (for [related-url (take 1 related-urls)]
      (cmn/map->RelatedUrlType {:URLs (take 1 (:URLs related-url))}))))

(defn- expected-serf-responsibility
  [resp]
  (cmr.common.dev.capture-reveal/capture resp)
  (-> resp
      (update-in [:Party :RelatedUrls] expected-related-urls-for-serf-party)
      fix-organization-name-in-party
      (update-in [:Party :Contacts] expected-serf-contacts)
      (update-in [:Party] remove-party-elements-not-in-serf)
      ))

(defn- filter-unused-serf-datetypes
  [dates]
  (seq (remove #(= "DELETE" (:Type %)) dates)))

(defn- filter-unique-serf-dates
  [dates]
  (let [dates-by-type (group-by :Type dates)] 
     (keep #(first (get dates-by-type %))
           ["CREATE" "UPDATE" "REVIEW"])))


(defn- expected-metadata-dates-for-serf

  (if (contains? #{:serf} metadata-format)
    record
    (reduce (fn [r field]
              (assoc r field nil))
            record
            not-implemented-fields)))

;;; Public API

