WHOOPS! Introduced bugs when I was supposed just to be documenting.

This commit is contained in:
Simon Brooke 2020-02-19 21:18:06 +00:00
parent b2ee34bd8e
commit a775ef7b83
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
2 changed files with 38 additions and 38 deletions

View file

@ -106,11 +106,11 @@
{:from :smeagol-site-title :to :site-title})) {:from :smeagol-site-title :to :site-title}))
(defn- build-config (def build-config
"The actual configuration, as a map. The idea here is that the config "The actual configuration, as a map. The idea here is that the config
file is read (if it is specified and present), but that individual file is read (if it is specified and present), but that individual
values can be overridden by environment variables." values can be overridden by environment variables."
[] (memoize (fn []
(try (try
(log/info (str "Reading configuration from " config-file-path)) (log/info (str "Reading configuration from " config-file-path))
(let [file-contents (try (let [file-contents (try
@ -144,8 +144,8 @@
config) config)
(catch Exception any (catch Exception any
(log/error any "Could not load configuration") (log/error any "Could not load configuration")
{}))) {})))))
(def config (def config
"The actual configuration, as a map." "The actual configuration, as a map."
(memoize build-config)) (build-config))

View file

@ -48,7 +48,7 @@
(declare process-text) (declare process-text)
(defn- process-backticks (defn process-backticks
"Effectively, escape the backticks surrounding this `text`, by protecting them "Effectively, escape the backticks surrounding this `text`, by protecting them
from the `process-text` filter. from the `process-text` filter.