     (when (seq v)
       v)))
 
-(defn- get-from-db
+(defn- db-value
   "Get the value, if any, of SETTING-OR-NAME from the DB (using / restoring the cache as needed)."
   ^String [setting-or-name]
   (restore-cache-if-needed!)

                     :internal?    false}
                    (dissoc setting :name :type :default)))
    (s/validate SettingDefinition <>)
    (swap! registered-settings assoc setting-name <>)
    (println "Registered Setting" setting-name))) ; NOCOMMIT




   If the fetched value is an empty string it is considered to be unset and this function returns `nil`."
  ^String [setting-or-name]
  (let [setting (resolve-setting setting-or-name)
        v       (or (db-value setting)
                    (env-var-value setting)
                    (:default setting))]
    (when (seq v)
      v)))

