Browse Source

minor logging fixes

master
eta 4 months ago
parent
commit
d6a8ac8f33
  1. 2
      message.lisp
  2. 2
      stuff.lisp

2
message.lisp

@ -74,7 +74,7 @@ FIXME: the above behaviour is a bit meh."
;; whee fallback go brrr
participant-localpart)))
(values wx-localpart from-resource))
(error "Couldn't find or create group chat for ~A" chat-id)))))))
(error "Couldn't find or create group chat for ~A" wx-localpart)))))))
(defmacro with-new-xmpp-message-context ((comp jid msg &optional conn) &body body)
"Evaluate FORMS, binding NEW-XMPP-MESSAGE (lambda-list (BODY &KEY OOB-URL SYSTEM-GENERATED)) to a function that returns an instance of the XMPP-MESSAGE class, using information contained in the message MSG received for the bridge user JID."

2
stuff.lisp

@ -596,7 +596,7 @@ Returns three values: avatar data (as two values), and a generalized boolean spe
(handle-wa-contact-presence-subscriptions comp jid wx-localpart))
(return-from add-wa-chat))
(unless (uiop:string-prefix-p "g" wx-localpart)
(warn "Interesting localpart pased to ADD-WA-CHAT: ~A" wx-localpart)
(warn "Interesting localpart passed to ADD-WA-CHAT: ~A" wx-localpart)
(return-from add-wa-chat))
(assert uid () "No user ID for ~A!" jid)
(unless (get-user-chat-id uid wx-localpart)

Loading…
Cancel
Save