Improve file thumbnails.

This commit is contained in:
Andrey Antukh 2020-01-08 11:12:12 +01:00
parent ab4171b8ec
commit 97d49e53b7
4 changed files with 38 additions and 37 deletions

View file

@ -75,14 +75,14 @@
and deleted_at is null;"]
(db/query-one conn [sql id])))
;; (s/def ::retrieve-image
;; (s/keys :req-un [::user ::us/id]))
(s/def ::image-by-id
(s/keys :req-un [::user ::us/id]))
;; (defmethod core/query :retrieve-image
;; [params]
;; (s/assert ::retrieve-image params)
;; (with-open [conn (db/connection)]
;; (retrieve-image conn params)))
(sq/defquery ::image-by-id
[params]
(-> (retrieve-image db/pool (:id params))
(p/then populate-thumbnail)
(p/then populate-urls)))
;; --- Query Images by Collection (id)