From 6e28bb9df884feba3bf95994a4f30aef3d765875 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Wed, 5 Oct 2022 11:27:11 +0200
Subject: [PATCH] :bug: Fix issues on profile deletion procedure

---
 backend/src/app/rpc/commands/auth.clj | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/backend/src/app/rpc/commands/auth.clj b/backend/src/app/rpc/commands/auth.clj
index 5c0a3e801..5ce869de5 100644
--- a/backend/src/app/rpc/commands/auth.clj
+++ b/backend/src/app/rpc/commands/auth.clj
@@ -109,6 +109,10 @@
             (when-not (check-password profile password)
               (ex/raise :type :validation
                         :code :wrong-credentials))
+            (when-let [deleted-at (:deleted-at profile)]
+              (when (dt/is-after? (dt/now) deleted-at)
+                (ex/raise :type :validation
+                          :code :wrong-credentials)))
 
             profile)]