code cleanup

src/metabase/api/meta/field.clj

@@ -39,10 +39,10 @@
   {field_type   FieldType
    special_type FieldSpecialType}
   (write-check Field id)
-  (check-500 (m/mapply upd Field id (merge {:description  description                                                ; you're allowed to unset description and special_type
-                                            :special_type special_type}                                              ; but field_type and preview_display must be replaced
-                                           (when field_type                   {:field_type field_type})              ; with new non-nil values
-                                           (when (not (nil? preview_display)) {:preview_display preview_display}))))
+  (check-500 (m/mapply upd Field id (merge {:description  description                                              ; you're allowed to unset description and special_type
+                                            :special_type special_type}                                            ; but field_type and preview_display must be replaced
+                                           (when field_type                 {:field_type field_type})              ; with new non-nil values
+                                           (when-not (nil? preview_display) {:preview_display preview_display}))))
   (sel :one Field :id id))
 
 (defendpoint GET "/:id/summary"

src/metabase/db.clj

@@ -373,10 +373,9 @@
 
 (def ^:dynamic *sel-disable-logging* false)
 
-(defn -sel-maybe-log [entity fields forms-str]
-  )
-
-(defn -sel-after [entity results]
+(defn -sel-after
+  "Perform ENTITY transformations on RESULTS."
+  [entity results]
   (map (comp (partial post-select entity)
              (partial apply-type-fns :out (seq (::types entity))))
        results))