cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- removed debug code.

This commit is contained in:
cage 2022-11-28 20:32:20 +01:00
parent 937d2faba5
commit ba320d849b
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/db.lisp
View File

@ -756,7 +756,6 @@
"Returns non nil if this boost must be ignored" "Returns non nil if this boost must be ignored"
(when-let ((ignore-regexps (swconf:ignore-users-boost-regexps)) (when-let ((ignore-regexps (swconf:ignore-users-boost-regexps))
(username (db:user-id->username account-id))) (username (db:user-id->username account-id)))
(misc:dbg "ignore ~a" ignore-regexps)
(loop for ignore-re in ignore-regexps do (loop for ignore-re in ignore-regexps do
(when (cl-ppcre:scan ignore-re username) (when (cl-ppcre:scan ignore-re username)
(return-from boost-ignored-p t))) (return-from boost-ignored-p t)))