Fix migrations

This commit is contained in:
janherich 2018-10-18 12:09:09 +02:00
parent ec69938529
commit 13eff1fb7e
No known key found for this signature in database
GPG Key ID: C23B473AFBE94D13
2 changed files with 8 additions and 1 deletions

View File

@ -93,7 +93,8 @@
(.objects "message") (.objects "message")
(.filtered (str "content-type = \"command-request\"")) (.filtered (str "content-type = \"command-request\""))
(.map (fn [message _ _] (.map (fn [message _ _]
(aset message "content-type" "command"))))) (when message
(aset message "content-type" "command"))))))
(defn v15 [old-realm new-realm] (defn v15 [old-realm new-realm]
(log/debug "migrating v15 account database")) (log/debug "migrating v15 account database"))

View File

@ -224,6 +224,12 @@
[wrapper message [wrapper message
[message-view message [message-content-command message]]]) [message-view message [message-content-command message]]])
;; Todo remove after couple of releases
(defmethod message-content constants/content-type-command-request
[wrapper message]
[wrapper message
[message-view message [message-content-command message]]])
(defmethod message-content constants/content-type-emoji (defmethod message-content constants/content-type-emoji
[wrapper message] [wrapper message]
[wrapper message [emoji-message message]]) [wrapper message [emoji-message message]])