🎉 Add helper to devenv for properly reset passwords.

backend/src/app/rpc/mutations/profile.clj

@@ -140,7 +140,7 @@
                 :code :email-already-exists))
     params))
 
-(defn- derive-password
+(defn derive-password
   [password]
   (hashers/derive password
                   {:alg :argon2id
@@ -148,7 +148,7 @@
                    :iterations 20
                    :parallelism 2}))
 
-(defn- verify-password
+(defn verify-password
   [attempt password]
   (try
     (hashers/verify attempt password)

backend/src/app/srepl/dev.clj

@@ -0,0 +1,16 @@
+(ns app.srepl.dev
+  #_:clj-kondo/ignore
+  (:require
+   [app.db :as db]
+   [app.config :as cfg]
+   [app.rpc.mutations.profile :refer [derive-password]]
+   [app.main :refer [system]]))
+
+(defn reset-passwords
+  [system]
+  (when (not= "devenv" (:host cfg/config))
+    (throw (ex-info "Can't proceed, only allowed this operation on devenv" {})))
+  (db/with-atomic [conn (:app.db/pool system)]
+    (let [password (derive-password "123123")]
+      (db/exec! conn ["update profile set password=?" password]))))
+

backend/src/app/srepl/main.clj

@@ -2,12 +2,13 @@
   "A  main namespace for server repl."
   #_:clj-kondo/ignore
   (:require
-   [clojure.pprint :refer [pprint]]
+   [app.common.pages :as cp]
+   [app.common.pages.migrations :as pmg]
    [app.db :as db]
    [app.main :refer [system]]
-   [app.common.pages.migrations :as pmg]
+   [app.srepl.dev :as dev]
    [app.util.blob :as blob]
-   [app.common.pages :as cp]))
+   [clojure.pprint :refer [pprint]]))
 
 (defn update-file
   ([id f] (update-file id f false))