mirror of
https://github.com/penpot/penpot.git
synced 2025-05-05 21:45:54 +02:00
🐛 Fix demo user login issue.
This commit is contained in:
parent
df1fcd5e22
commit
c6fe035939
1 changed files with 8 additions and 4 deletions
|
@ -92,12 +92,16 @@
|
||||||
|
|
||||||
profile))
|
profile))
|
||||||
|
|
||||||
|
(def ^:private sql:profile-by-email
|
||||||
|
"select p.* from profile as p
|
||||||
|
where p.email = ?
|
||||||
|
and (p.deleted_at is null or
|
||||||
|
p.deleted_at > now())")
|
||||||
|
|
||||||
(defn retrieve-profile-data-by-email
|
(defn retrieve-profile-data-by-email
|
||||||
[conn email]
|
[conn email]
|
||||||
(try
|
(ex/ignoring
|
||||||
(db/get-by-params conn :profile {:email (str/lower email)
|
(db/exec-one! conn [sql:profile-by-email (str/lower email)])))
|
||||||
:deleted-at nil})
|
|
||||||
(catch Exception _e)))
|
|
||||||
|
|
||||||
;; --- Attrs Helpers
|
;; --- Attrs Helpers
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue