fix: Use get-current-user instead of auth:current-user
Fixed compilation error by using the correct function name. The codebase uses get-current-user() which is defined in user-management.lisp, not auth:current-user. Build now completes successfully.
This commit is contained in:
parent
799a614e89
commit
a6cc10a689
|
|
@ -112,7 +112,7 @@
|
||||||
(require-authentication)
|
(require-authentication)
|
||||||
(with-error-handling
|
(with-error-handling
|
||||||
(if (and current-password new-password)
|
(if (and current-password new-password)
|
||||||
(let* ((current-user (auth:current-user))
|
(let* ((current-user (get-current-user))
|
||||||
(username (gethash "username" current-user))
|
(username (gethash "username" current-user))
|
||||||
(stored-hash (gethash "password-hash" current-user)))
|
(stored-hash (gethash "password-hash" current-user)))
|
||||||
;; Verify current password
|
;; Verify current password
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue