Fix DM regulare expression.

This commit is contained in:
Robert C. Martin 2022-09-19 10:39:11 -05:00
parent c312307b35
commit 52e785b467

View File

@ -457,7 +457,7 @@
))
(defn encrypt-if-direct-message [content tags]
(if (re-matches #"D \#\[\d+\].*" content)
(if (re-find #"^D \#\[\d+\]" content)
(let [reference-digits (re-find #"\d+" content)
reference-index (Integer/parseInt reference-digits)
p-tag (get tags reference-index)]